Skip to content
GitLab
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
326d6f01
Commit
326d6f01
authored
Jan 10, 2013
by
Stephane Glondu
Browse files
Remove hard-coded examples from web server
parent
b4e7c203
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/helios_registration.ml
View file @
326d6f01
...
...
@@ -60,46 +60,46 @@ let test_uuid =
|
Some
u
->
u
|
None
->
assert
false
let
election
s
=
let
format_
election
e
=
let
open
Helios_services
in
let
open
Helios_templates
in
[
{
election
=
get_raw_election_by_uuid
test_uuid
;
election_admin
=
{
user_name
=
"admin"
;
user_type
=
"dummy"
;
};
election_trustees
=
[]
;
election_state
=
`Finished
[
{
answers
=
[
{
answer
=
"emacs"
;
count
=
2
;
winner
=
true
;
};
{
answer
=
"vim"
;
count
=
1
;
winner
=
false
;
};
{
answer
=
"gedit"
;
count
=
0
;
winn
er
=
false
;
};
{
answer
=
"something else"
;
count
=
1
;
winner
=
false
;
}
;
];
question
=
"What is your favourite editor?"
;
};
];
}
]
let
election
=
e
.
Helios_services
.
election
in
let
election_admin
=
{
user_name
=
"admin"
;
user_type
=
"dummy"
;
}
in
let
election_trustees
=
[]
in
let
election_state
=
match
e
.
public_data
.
election_result
with
|
Some
r
->
Array
.
mapi
(
fun
i
q
->
let
q'
=
election
.
e_questions
.
(
i
)
in
let
question
=
q'
.
q_question
in
let
answers
=
Array
.
mapi
(
fun
j
a
->
let
answer
=
q'
.
q_answers
.
(
j
)
in
let
count
=
a
in
(
answer
,
count
)
)
q
|>
Array
.
to_list
in
let
(
winners
,
_
)
=
List
.
fold_left
(
fun
(
ws
,
v
)
((
_
,
c
)
as
w
)
->
if
c
>
v
then
([
w
]
,
c
)
else
if
c
=
v
then
(
w
::
ws
,
v
)
else
(
ws
,
v
)
)
([]
,
0
)
answers
in
let
answ
er
s
=
List
.
map
(
fun
((
answer
,
count
)
as
x
)
->
let
winner
=
List
.
memq
x
winners
in
{
answer
;
count
;
winner
}
)
answers
in
{
question
;
answers
}
)
(
r
.
result
:
int
array
array
)
|>
(
fun
x
->
`Finished
(
Array
.
to_list
x
))
|
None
->
`Started
in
{
election
;
election_admin
;
election_trustees
;
election_state
}
let
elections
=
List
.
map
format_election
elections
let
get_featured_elections
()
=
return
elections
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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