Commit e9bd638e authored by Stephane Glondu's avatar Stephane Glondu

Change in default languages for mails

 * "en fr" for new elections
 * "en" for old elections that don't have the property set
parent db9fb44c
......@@ -232,7 +232,7 @@ let available_languages = ["en"; "fr"; "de"]
let get_languages xs =
match xs with
| None -> available_languages
| None -> ["en"]
| Some xs -> xs
let string_of_languages xs =
......
......@@ -327,7 +327,7 @@ let create_new_election owner cred auth =
e_auth_config;
e_cred_authority;
e_trustees = None;
e_languages = None;
e_languages = Some ["en"; "fr"];
} in
let question = {
q_answers = [| "Answer 1"; "Answer 2"; "Blank" |];
......
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