Commit 932197ad authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Setup mode: show URL in link text for trustees and credentials

parent 9d5e04b0
...@@ -310,8 +310,14 @@ let election_setup uuid se auth () = ...@@ -310,8 +310,14 @@ let election_setup uuid se auth () =
ol ol
(List.rev_map (List.rev_map
(fun (token, pk) -> (fun (token, pk) ->
li li [
[a ~service:election_setup_trustee [pcdata token] token] a ~service:election_setup_trustee [
pcdata @@ rewrite_prefix @@ Eliom_uri.make_string_uri
~absolute:true
~service:election_setup_trustee
token
] token
];
) se.se_public_keys ) se.se_public_keys
); );
form_trustees_add; form_trustees_add;
...@@ -319,12 +325,22 @@ let election_setup uuid se auth () = ...@@ -319,12 +325,22 @@ let election_setup uuid se auth () =
] ]
in in
let div_credentials = let div_credentials =
div div [
[h2 [pcdata "Credentials"]; h2 [pcdata "Credentials"];
a ul [
~service:election_setup_credentials li [
[pcdata "Manage credentials"] a
se.se_public_creds] ~service:election_setup_credentials
[
pcdata @@ rewrite_prefix @@ Eliom_uri.make_string_uri
~absolute:true
~service:election_setup_credentials
se.se_public_creds
]
se.se_public_creds;
];
];
]
in in
let form_create = let form_create =
post_form post_form
......
Supports Markdown
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