Commit db9e7b9d authored by Stephane Glondu's avatar Stephane Glondu

Add a warning when no trustees are set in election_setup_confirm

parent c502ebd4
......@@ -986,6 +986,15 @@ let election_setup_confirm uuid se () =
st_public_key <> ""
) se.se_public_keys then ready, "OK" else false, "Missing"
in
let div_trustee_warning =
match se.se_public_keys with
| [] ->
div [
b [pcdata "Warning:"];
pcdata " No trustees were set. This means that the server will manage the election key by itself.";
]
| _ :: _ -> pcdata ""
in
let table_checklist = table [
tr [
td [pcdata "Voters?"];
......@@ -1007,6 +1016,7 @@ let election_setup_confirm uuid se () =
let checklist = div [
h2 [pcdata "Checklist"];
table_checklist;
div_trustee_warning;
] in
let form_create =
if ready then
......
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