Commit 524bb46c authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Remove extra titles

parent d7eae832
...@@ -793,7 +793,6 @@ let make_login_box style auth links = ...@@ -793,7 +793,6 @@ let make_login_box style auth links =
) (params.e_uuid, ()) ) (params.e_uuid, ())
in in
let content = [ let content = [
h1 [ pcdata params.e_name ];
form; form;
] in ] in
lwt login_box = site_login_box () in lwt login_box = site_login_box () in
...@@ -824,7 +823,6 @@ let make_login_box style auth links = ...@@ -824,7 +823,6 @@ let make_login_box style auth links =
) (params.e_uuid, ()) ) (params.e_uuid, ())
in in
let content = [ let content = [
h1 [ pcdata params.e_name ];
h3 [ pcdata "Submit by copy/paste" ]; h3 [ pcdata "Submit by copy/paste" ];
form_rawballot; form_rawballot;
h3 [ pcdata "Submit by file" ]; h3 [ pcdata "Submit by file" ];
...@@ -859,7 +857,6 @@ let make_login_box style auth links = ...@@ -859,7 +857,6 @@ let make_login_box style auth links =
] ]
in in
let content = [ let content = [
h1 [ pcdata name ];
p [ p [
pcdata "Your ballot for "; pcdata "Your ballot for ";
em [pcdata name]; em [pcdata name];
...@@ -885,7 +882,6 @@ let make_login_box style auth links = ...@@ -885,7 +882,6 @@ let make_login_box style auth links =
let params = W.election.e_params in let params = W.election.e_params in
let name = params.e_name in let name = params.e_name in
let content = [ let content = [
h1 [ pcdata name ];
p [ p [
pcdata "Your ballot for "; pcdata "Your ballot for ";
em [pcdata name]; em [pcdata name];
......
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