Attention une mise à jour du serveur va être effectuée le lundi 17 mai entre 13h et 13h30. Cette mise à jour va générer une interruption du service de quelques minutes.

Commit 1bd9573a authored by Stephane Glondu's avatar Stephane Glondu

Generate and mail missing passwords only

parent aa2cb9b6
......@@ -536,8 +536,11 @@ let () =
(uuid, ()) |> rewrite_prefix
in
Lwt_list.iter_s (fun id ->
lwt x = generate_password title url id.sv_id in
return (id.sv_password <- Some x)
match id.sv_password with
| None ->
lwt x = generate_password title url id.sv_id in
return (id.sv_password <- Some x)
| Some _ -> return_unit
) se.se_voters >>
return (fun () ->
T.generic_page ~title:"Success"
......
......@@ -629,7 +629,7 @@ let election_setup_voters uuid se () =
if has_passwords then
post_form ~service:election_setup_auth_genpwd
(fun () ->
[string_input ~input_type:`Submit ~value:"Generate passwords" ()]
[string_input ~input_type:`Submit ~value:"Generate and mail missing passwords" ()]
) uuid
else pcdata ""
in
......
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