Commit 304431ee authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Setup mode: confirmation pages for trustees and credentials

parent 932197ad
...@@ -528,7 +528,8 @@ let handle_credentials_post token creds = ...@@ -528,7 +528,8 @@ let handle_credentials_post token creds =
Printf.ksprintf failwith "invalid credential at line %d" !i) Printf.ksprintf failwith "invalid credential at line %d" !i)
(Lwt_io.lines_of_file fname) (Lwt_io.lines_of_file fname)
in in
Redirection.send (preapply election_setup_credentials token) T.generic_page ~title:"Success"
"Credentials have been received and checked!" () >>= Html5.send
let () = let () =
Any.register Any.register
...@@ -572,7 +573,9 @@ let () = ...@@ -572,7 +573,9 @@ let () =
(* we keep pk as a string because of G.t *) (* we keep pk as a string because of G.t *)
pkref := public_key; pkref := public_key;
Ocsipersist.add election_stable uuid se Ocsipersist.add election_stable uuid se
) >> Redirection.send (preapply election_setup_trustee token) ) >> T.generic_page ~title:"Success"
"Your key has been received and checked!"
() >>= Html5.send
) )
) )
......
Supports Markdown
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