Attention une mise à jour du service Gitlab va être effectuée le mardi 18 janvier (et non lundi 17 comme annoncé précédemment) entre 18h00 et 18h30. Cette mise à jour va générer une interruption du service dont nous ne maîtrisons pas complètement la durée mais qui ne devrait pas excéder quelques minutes.

Commit 4bce171e authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Remove election_{questions,voters,trustees}

parent 5bb4f16c
......@@ -276,33 +276,19 @@ let election_view ~election =
];
pcdata " election created by ";
u [ b (format_user election.xelection.Common.public_data.admin 15) ];
pcdata " with ";
pcdata (string_of_int (Array.length election.election.e_questions));
pcdata " question(s) and ";
pcdata (string_of_int (List.length election.election_trustees));
pcdata " trustee(s)";
];
];
br ();
br ();
br ~a:[a_style "clear: left;"] ();
div ~a:[a_style "margin-bottom: 25px;margin-left: 15px; border-left: 1px solid #aaa; padding-left: 5px; font-size:1.3em;"] [pcdata election.election.e_description];
p ~a:[a_style "text-align: center; font-size: 1.5em;"] [
a ~service:(Eliom_service.preapply Helios_services.election_questions election.election.e_uuid) [
pcdata "questions (";
pcdata (string_of_int (Array.length election.election.e_questions));
pcdata ")";
] ();
(* FIXME: space (&nbsp) breaks the output *)
pcdata " | ";
a ~service:(Eliom_service.preapply Helios_services.election_voters election.election.e_uuid) [
pcdata "voters & ballots"
] ();
pcdata " | ";
a ~service:(Eliom_service.preapply Helios_services.election_trustees election.election.e_uuid) [
pcdata "trustees (";
pcdata (string_of_int (List.length election.election_trustees));
pcdata ")";
] ();
];
(* NOTE: administration things removed from here! *)
br ();
br ();
] @ (match election.election_state with
| `Finished result ->
[
......
......@@ -173,18 +173,3 @@ let () = Eliom_registration.Html5.register
~service:Helios_services.election_cast_post
(fun uuid (euuid, (ehash, evote)) ->
Helios_templates.not_implemented "Cast")
let () = Eliom_registration.Html5.register
~service:Helios_services.election_questions
(fun uuid () ->
Helios_templates.not_implemented "Questions")
let () = Eliom_registration.Html5.register
~service:Helios_services.election_voters
(fun uuid () ->
Helios_templates.not_implemented "Voters")
let () = Eliom_registration.Html5.register
~service:Helios_services.election_trustees
(fun uuid () ->
Helios_templates.not_implemented "Trustees")
......@@ -95,21 +95,6 @@ let election_cast_post = post_service
string "encrypted_vote"
) ()
let election_questions = service
~path:["election"; "questions"]
~get_params:uuid
()
let election_voters = service
~path:["election"; "voters"]
~get_params:uuid
()
let election_trustees = service
~path:["election"; "trustees"]
~get_params:uuid
()
let get_randomness = service
~path:["get-randomness"]
~get_params:unit
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment