Commit f4cb7aa7 authored by Stephane Glondu's avatar Stephane Glondu

In election_cast_post, redirect to election_login

parent 002965a1
......@@ -472,7 +472,11 @@ module Make (D : ELECTION_DATA) (P : WEB_PARAMS) : REGISTRABLE = struct
Eliom_reference.set Web_services.cont cont >>
Eliom_reference.set ballot (Some the_ballot) >>
match user with
| None -> Auth.Handlers.do_login None cont ()
| None ->
Redirection.send
(Eliom_service.preapply
Web_services.election_login
((W.election.e_params.e_uuid, ()), None))
| Some u -> cont () ()
)
)
......
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