Commit 00e87c05 authored by Stephane Glondu's avatar Stephane Glondu Committed by Stéphane Glondu

Do not call Eliom_uri.make_string_uri in data_policy_loop

parent 61a6c9b2
......@@ -2391,11 +2391,7 @@ let get_next_actions () =
)
let mail_automatic_warning : ('a, 'b, 'c, 'd, 'e, 'f) format6 =
"The election %s available at:
%s
will be automatically %s after %s.
"The election %s will be automatically %s after %s.
-- \nBelenios"
......@@ -2434,13 +2430,9 @@ let process_election_for_data_policy (action, uuid, next_t, name, contact) =
Printf.sprintf "Election %s will be automatically %s soon"
name comment
in
let uri =
Eliom_uri.make_string_uri ~absolute:true
~service:election_home (uuid, ()) |> rewrite_prefix
in
let body =
Printf.sprintf mail_automatic_warning
name uri comment (format_datetime next_t)
name comment (format_datetime next_t)
in
let%lwt () = send_email email subject body in
Web_persist.set_election_date `LastMail uuid now
......
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