Commit 703eb4ec authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Show number of ballots on pretty_ballots

parent b8c6f4cc
...@@ -1388,8 +1388,12 @@ let pretty_ballots w hashes () = ...@@ -1388,8 +1388,12 @@ let pretty_ballots w hashes () =
[pcdata "Back to election"] [pcdata "Back to election"]
(params.e_uuid, ())] (params.e_uuid, ())]
in in
let number = div [
pcdata (string_of_int !nballots);
pcdata " ballot(s) have been accepted so far."
] in
let content = [ let content = [
p [pcdata "This is the list of ballots accepted so far."]; number;
ul ballots; ul ballots;
links; links;
] 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