Commit eea75e7d authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Add link

parent e53e0564
......@@ -454,6 +454,10 @@ let make_login_box style auth links =
div [string_input ~input_type:`Submit ~value:"Submit" ()]])
uuid
in
let link =
let service = Web_services.election_setup in
div [a ~service [pcdata "Go back to election preparation"] uuid]
in
let interactivity =
div
~a:[a_id "interactivity"]
......@@ -468,6 +472,7 @@ let make_login_box style auth links =
let content = [
interactivity;
form;
link;
] in
lwt login_box = site_login_box () in
base ~title ~login_box ~content ()
......
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