let print_missing_html (hpr:string -> unit) (gl:student list) (padd:paddress) =
let abs = List.filter (fun s -> (student_resp s padd) == Zero) gl in
if ((List.length abs)>0) then begin
hpr (Printf.sprintf "Ne participent pas au projet n\176%s: \n" (pa_to_string padd));
List.iter (fun stu ->
if (!export_type = HtmlJscpt) then begin
hpr (Printf.sprintf "<input type='button' value='%s' onclick='selStudent(this)'/>"
stu.login);
if ((List.length !all_groups) > 1) then
hpr (Printf.sprintf " (g%d)" stu.group);
end else
hpr (Printf.sprintf "%s (g%d) "
(color_string_html 3 stu.login) stu.group)) abs;
end;
hpr "\n"