Commit 6ae25105 authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Add a warning: credential management freezes the voter list

parent 8e86cbe9
...@@ -446,16 +446,19 @@ let election_setup uuid se () = ...@@ -446,16 +446,19 @@ let election_setup uuid se () =
pcdata "Credentials have already been generated!" pcdata "Credentials have already been generated!"
] ]
) else ( ) else (
if has_credentials then ( div [
post_form ~service:election_setup_credentials_server pcdata "Warning: this will freeze the voter list!";
(fun () -> if has_credentials then (
[string_input ~input_type:`Submit ~value:"Generate on server" ()] post_form ~service:election_setup_credentials_server
) uuid (fun () ->
) else ( [string_input ~input_type:`Submit ~value:"Generate on server" ()]
div [ ) uuid
a ~service:election_setup_credential_authority [pcdata "Credential management"] uuid; ) else (
] div [
) a ~service:election_setup_credential_authority [pcdata "Credential management"] uuid;
]
);
]
) )
] ]
in in
......
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