Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
belenios
belenios
Commits
932197ad
Commit
932197ad
authored
Jun 05, 2015
by
Stephane Glondu
Browse files
Setup mode: show URL in link text for trustees and credentials
parent
9d5e04b0
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/web/web_templates.ml
View file @
932197ad
...
...
@@ -310,8 +310,14 @@ let election_setup uuid se auth () =
ol
(
List
.
rev_map
(
fun
(
token
,
pk
)
->
li
[
a
~
service
:
election_setup_trustee
[
pcdata
token
]
token
]
li
[
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
);
form_trustees_add
;
...
...
@@ -319,12 +325,22 @@ let election_setup uuid se auth () =
]
in
let
div_credentials
=
div
[
h2
[
pcdata
"Credentials"
];
a
~
service
:
election_setup_credentials
[
pcdata
"Manage credentials"
]
se
.
se_public_creds
]
div
[
h2
[
pcdata
"Credentials"
];
ul
[
li
[
a
~
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
let
form_create
=
post_form
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment