Commit 4d149766 authored by Stephane Glondu's avatar Stephane Glondu

Show the maximum number of voters on election_setup_voters

parent 1bd603e7
......@@ -584,7 +584,7 @@ let () =
let uuid_s = Uuidm.to_string uuid in
let%lwt se = get_setup_election uuid_s in
if se.se_owner = u
then T.election_setup_voters uuid se ()
then T.election_setup_voters uuid se !maxmailsatonce ()
else forbidden ()
| None -> forbidden ()
)
......
......@@ -673,7 +673,7 @@ let election_setup_questions uuid se () =
let%lwt login_box = site_login_box () in
base ~title ?login_box ~content ()
let election_setup_voters uuid se () =
let election_setup_voters uuid se maxvoters () =
let title = "Voters for election " ^ se.se_questions.t_name in
let form =
post_form
......@@ -752,7 +752,11 @@ let election_setup_voters uuid se () =
pcdata ""
else
div [
div [pcdata "Please enter the identities of voters to add, one per line:"];
div [
pcdata "Please enter the identities of voters to add, one per line (max ";
pcdata (string_of_int maxvoters);
pcdata "):"
];
form;
div [
b [pcdata "Note:"];
......
......@@ -38,7 +38,7 @@ val generic_page : title:string ->
val election_setup_pre : unit -> [> `Html ] Eliom_content.Html5.F.elt Lwt.t
val election_setup : Uuidm.t -> setup_election -> unit -> [> `Html ] Eliom_content.Html5.F.elt Lwt.t
val election_setup_voters : Uuidm.t -> setup_election -> unit -> [> `Html ] Eliom_content.Html5.F.elt Lwt.t
val election_setup_voters : Uuidm.t -> setup_election -> int -> unit -> [> `Html ] Eliom_content.Html5.F.elt Lwt.t
val election_setup_questions : Uuidm.t -> setup_election -> unit -> [> `Html ] Eliom_content.Html5.F.elt Lwt.t
val election_setup_credential_authority : Uuidm.t -> setup_election -> unit -> [> `Html ] Eliom_content.Html5.F.elt Lwt.t
val election_setup_credentials : string -> Uuidm.t -> setup_election -> unit -> [> `Html ] Eliom_content.Html5.F.elt Lwt.t
......
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