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

Use session scope everywhere

parent 45af3f11
open Lwt
let user = Eliom_reference.eref
~scope:Eliom_common.session_group
~scope:Eliom_common.session
None
let auth_systems = [
......@@ -55,7 +55,7 @@ let () = Eliom_registration.Html5.register
let service = Helios_services.perform_login () in
let () = Eliom_registration.Html5.register
~service
~scope:Eliom_common.session_group
~scope:Eliom_common.session
(fun () (username, admin_p) ->
return (Helios_templates.not_implemented "Login"))
in
......
......@@ -35,7 +35,7 @@ let login = service
let perform_login () =
Eliom_service.post_coservice
~csrf_safe:true
~csrf_scope:Eliom_common.session_group
~csrf_scope:Eliom_common.session
~fallback:login
~post_params:Eliom_parameter.(string "username" ** bool "admin_p")
()
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