Commit decb5242 authored by Stephane Glondu's avatar Stephane Glondu

UI for setting questions

parent 9fa335f8
......@@ -5,3 +5,4 @@ src/static/belenios-tool.html.otarget
src/static/vote.html.otarget
src/static/tool_js_tkeygen.js
src/static/tool_js_credgen.js
src/static/tool_js_questions.js
......@@ -122,6 +122,7 @@ let () = dispatch & function
copy_rule "tool_js_tkeygen.js" "src/tool/tool_js_tkeygen.js" "src/static/tool_js_tkeygen.js";
copy_rule "tool_js_credgen.js" "src/tool/tool_js_credgen.js" "src/static/tool_js_credgen.js";
copy_rule "tool_js_questions.js" "src/tool/tool_js_questions.js" "src/static/tool_js_questions.js";
List.iter
copy_static
......
This diff is collapsed.
......@@ -453,7 +453,19 @@ let make_login_box style auth links =
div [string_input ~input_type:`Submit ~value:"Submit" ()]])
uuid
in
let interactivity =
div
~a:[a_id "interactivity"]
[
script ~a:[a_src (uri_of_string (fun () -> "../static/sjcl.js"))] (pcdata "");
script ~a:[a_src (uri_of_string (fun () -> "../static/jsbn.js"))] (pcdata "");
script ~a:[a_src (uri_of_string (fun () -> "../static/jsbn2.js"))] (pcdata "");
script ~a:[a_src (uri_of_string (fun () -> "../static/random.js"))] (pcdata "");
script ~a:[a_src (uri_of_string (fun () -> "../static/tool_js_questions.js"))] (pcdata "");
]
in
let content = [
interactivity;
form;
] in
lwt login_box = site_login_box () 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