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 = HtmlJscptthen 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"