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 =
Printf.ksprintf failwith "invalid credential at line %d" !i)
(Lwt_io.lines_of_file fname)
in
Redirection.send (preapply election_setup_credentials token)
T.generic_page ~title:"Success"
"Credentials have been received and checked!" () >>= Html5.send
let () =
Any.register
......@@ -572,7 +573,9 @@ let () =
(* we keep pk as a string because of G.t *)
pkref := public_key;
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
)
)
......
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