@@ -418,31 +406,12 @@ let election_setup uuid se () =
letdiv_trustees=
div[
h2[pcdata"Trustees"];
div[pcdata"By default, the election server manages the keys of the election. If you do not wish the server to store any keys, click here."];
div[pcdata"If you do not wish the server to store any keys, you may nominate trustees. In that case, each trustee will create her own secret key. Be careful, once the election is over, you will need the contribution of each trustee to compute the result!"];
br();
ol
(List.rev_map
(fun(token,pk)->
li[
a~service:election_setup_trustee[
pcdata@@rewrite_prefix@@Eliom_uri.make_string_uri
~absolute:true
~service:election_setup_trustee
token
]token
];
)se.se_public_keys
);
(ifse.se_public_keys<>[]then
div[
pcdata"There is one link per trustee. Send each trustee her link.";
br();
br();
]
elsepcdata"");
form_trustees_add;
form_trustees_del;
div[
pcdata"By default, the election server manages the keys of the ";
pcdata"election. If you do not wish the server to store any keys, ";
div[pcdata"If you do not wish the server to store any keys, you may nominate trustees. In that case, each trustee will create her own secret key. Be careful, once the election is over, you will need the contribution of each trustee to compute the result!"];
br();
ol
(List.rev_map
(fun(token,pk)->
li[
a~service:election_setup_trustee[
pcdata@@rewrite_prefix@@Eliom_uri.make_string_uri
~absolute:true
~service:election_setup_trustee
token
]token
];
)se.se_public_keys
);
(ifse.se_public_keys<>[]then
div[
pcdata"There is one link per trustee. Send each trustee her link.";
br();
br();
]
elsepcdata"");
form_trustees_add;
form_trustees_del;
]
in
letcontent=[div_content]in
lwtlogin_box=site_login_box()in
base~title~login_box~content()
letelection_setup_questionsuuidse()=
lettitle="Questions for election "^se.se_questions.t_namein