Commit aae61603 authored by Stephane Glondu's avatar Stephane Glondu

Question editor: return to setup page when saving changes

parent 563844d7
......@@ -568,7 +568,7 @@ let () =
(handle_setup
(fun se x _ uuid ->
se.se_questions <- template_of_string x;
return (redir_preapply election_setup_questions uuid)))
return (redir_preapply election_setup uuid)))
let () =
Html5.register
......
......@@ -678,10 +678,6 @@ let election_setup_questions uuid se () =
div [string_input ~input_type:`Submit ~value:"Save changes" ()]])
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"]
......@@ -696,7 +692,6 @@ let election_setup_questions uuid se () =
let content = [
interactivity;
form;
link;
] in
let%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