Commit 9ffeaffd authored by Stephane Glondu's avatar Stephane Glondu

Add a waiting message during booth loading

parent 6ab4f83d
......@@ -349,6 +349,7 @@ let drop_trailing_newline s =
let loadElection () =
setDisplayById "election_loader" "none";
setDisplayById "wait_div" "none";
setDisplayById "booth_div" "block";
let election_raw = getTextarea "election_params" |> drop_trailing_newline in
let election_params = Election.(get_group (of_string election_raw)) in
......
......@@ -2365,6 +2365,12 @@ let booth uuid =
script ~a:[a_src (static "random.js")] (pcdata "");
script ~a:[a_src (static "booth.js")] (pcdata "");
] in
let wait_div =
div ~a:[a_id "wait_div"] [
pcdata "Please wait... ";
img ~src:(static "encrypting.gif") ~alt:"Loading..." ();
]
in
let election_loader =
div ~a:[a_id "election_loader"; a_style "display:none;"] [
h1 [pcdata "Election loader"];
......@@ -2501,6 +2507,7 @@ let booth uuid =
]
in
let body = body [
wait_div;
div ~a:[a_id "wrapper"] [
election_loader;
booth_div;
......
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