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

Result page: display the blank choice at the end

parent d1cd9a76
......@@ -1190,7 +1190,10 @@ let election_home w state () =
let answers =
match answers with
| [] -> pcdata ""
| x :: xs -> table (x :: xs)
| y :: ys ->
match x.q_blank with
| Some true -> table (ys @ [y])
| _ -> table (y :: ys)
in
li [
pcdata x.q_question;
......
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