Commit 2bdfd452 authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Bugfix: for records, we care about the site user

parent 5c1d0076
......@@ -368,7 +368,7 @@ module Make (D : ELECTION_DATA) (P : WEB_PARAMS) : REGISTRATION = struct
return (s, "application/json")
let f_records user () =
match user with
match_lwt S.get_user () with
| Some u ->
if W.metadata.e_owner = Some u then (
(* TODO: streaming *)
......
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