let display_values_html (pr:string->unit) =
pr "<div>\n<table>\n";
pr (Printf.sprintf "<tr><td>Project file : </td><td>%s</td></tr>\n" !etud_file);
pr (Printf.sprintf "<tr><td>Num students : </td><td>%d</td></tr>\n"
(List.length !student_list));
pr (Printf.sprintf "<tr><td>Sel group : </td><td>%s</td></tr>\n" (convert_int_list_to_string !groupssel));
pr (Printf.sprintf "<tr><td>Groups size : </td><td>%s</td></tr>\n"
(String.concat ";" (List.map (fun gnum -> Printf.sprintf "%d -> %d" gnum (get_group_size gnum)) !num_groups)));
pr (Printf.sprintf "<tr><td>Ref sort : </td><td>%s</td></tr>\n" (string_of_sort !ref_sort));
pr (Printf.sprintf "<tr><td>Assign Resp : </td><td>%s</td></tr>\n"
(if !do_assign_resp then "true" else "false"));
pr "</table>\n</div>\n"