Attention une mise à jour du service Gitlab va être effectuée le mardi 30 novembre entre 17h30 et 18h00. Cette mise à jour va générer une interruption du service dont nous ne maîtrisons pas complètement la durée mais qui ne devrait pas excéder quelques minutes. Cette mise à jour intermédiaire en version 14.0.12 nous permettra de rapidement pouvoir mettre à votre disposition une version plus récente.

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

Unset Services.ballot at appropriate times

parent 469d265b
......@@ -159,6 +159,7 @@ let if_eligible acl f uuid x =
let () = Eliom_registration.Html5.register
~service:Services.home
(fun () () ->
Eliom_reference.unset Services.ballot >>
Eliom_reference.unset Services.saved_service >>
lwt featured = get_featured_elections () in
Templates.index ~featured)
......@@ -230,6 +231,7 @@ let () = Eliom_registration.Redirection.register
~service:Services.logout
(fun () () ->
lwt user = Eliom_reference.get Services.user in
(* should ballot be unset here or not? *)
Eliom_reference.unset Services.user >>
match user with
| Some user when user.Web_common.user_type = Web_common.CAS ->
......@@ -323,6 +325,7 @@ let () = Eliom_registration.Html5.register
~service:Services.election_index
(if_eligible can_read
(fun uuid election user () ->
Eliom_reference.unset Services.ballot >>
Eliom_reference.set Services.saved_service (Services.Election uuid) >>
Templates.election_view ~election ~user
)
......@@ -332,6 +335,7 @@ let () = Eliom_registration.Redirection.register
~service:Services.election_vote
(if_eligible can_read
(fun uuid election user () ->
Eliom_reference.unset Services.ballot >>
Eliom_reference.set Services.saved_service (Services.Election uuid) >>
return (Services.make_booth uuid)
)
......
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