\n";
- KP.printf " \n";
- KP.printf " \n";
- KP.printf " \n";
- KP.printf " \n";
- KP.printf " \n";
- KP.printf " \n";
- KP.printf " \n" author;
- KP.printf " \n" description;
- KP.printf " %s" title;
- KP.printf " \n" css;
- KP.printf " \n" icon;
- KP.printf "\n";
- KP.printf "\n"
+let error = ref ""
-let close_out_html () =
- KP.printf "\n";
- KP.printf "\n"
-(*
- YW.close_out ()
-*)
let open_out () =
let author = "λδ development binary: roles manager" in
let description = "λδ development binary: roles manager" in
let title = "Roles Manager" in
let css = Filename.concat !EG.base_url "css/roles.css" in
let icon = Filename.concat !EG.base_url "images/crux_32.ico" in
- open_out_html author description title css icon
+ WS.open_out_html author description title css icon
let close_out () =
- close_out_html ()
+ WS.close_out_html ()
+
+let string_of_request req arg =
+ WS.string_of_request "roles" (["system-"^req, arg], "")
let status_out () =
+ let button_specs = [
+ "default", "Refresh";
+ "save", "Save";
+ "add", "Add";
+ "match", "Match";
+ "remove", "Remove";
+ ] in
+ let each_button (action, str) =
+ let req = string_of_request action "" in
+ KP.printf "%s\n" req str
+ in
+ let before_roles p count =
+ let req = string_of_request "toggle" p in
+ KP.printf "
\n";
+ KP.printf "Roles:\n" req;
+ KP.printf "%s\n" count
+ in
+ let each_role p b str =
+ let req = string_of_request "toggle" p in
+ let s = if b then " selected" else "" in
+ KP.printf "
\n"
+ in
let before_atoms a p count =
let c, str =
- if a then "object", "objects"
- else "name", "names"
+ if a then "object-color", "objects"
+ else "name-color", "names"
in
+ let req = string_of_request "toggle" p in
KP.printf "
\n"
in
let each_atom a p b str =
- let c = if a then "object" else "name" in
+ let c = if a then "object-color" else "name-color" in
let s = if b then " selected" else "" in
- KP.printf "