let print_team_html (hpr:string -> unit) 
    (gl:student list) (padd:paddress) (groupnum:int)  (teamnum:int) = 
    if (!export_type = HtmlJscptthen
      hpr (Printf.sprintf "<div>\n<a href='list.html'>Groupe n\176%d</a> - <a href=\"project.html?projnum=%s\">%s</a> - %s<hr/>\n" 
             groupnum (pa_to_string padd)
             (get_group_project_name groupnum padd) 
             (get_group_project_team_name groupnum padd teamnum))
    else
      hpr (Printf.sprintf "<div>\nGroup %d - %s - Team %d<hr/>\n" 
             groupnum (get_group_project_name groupnum padd) teamnum);
    if (!do_assign_resp) then begin 
      (* Print responsibles *)
      let caps = get_captains gl groupnum padd teamnum in
      let secs = get_secretaries gl groupnum padd teamnum in
        List.iter (fun t -> hpr (Printf.sprintf 
                           "<a href='student.html?login=%s'>%s</a>, \n"
                           t.login (color_string_html (student_absc t padd) t.login)))
          (caps@secs);
    end;
    (* Print programmers *)
    let pro = get_progs gl groupnum padd teamnum in 
      hpr (String.concat ", " (List.map (fun t -> Printf.sprintf 
                "<a href='student.html?login=%s'>%s</a>" 
               t.login (color_string_html (student_absc t padd) t.login)) pro));
      hpr "<hr/>\n";
      (* Print grade *)
      if (!export_type = HtmlJscpt&& (!allow_grading) then begin
        hpr "<form method='post' action=''>\n";
        hpr (Printf.sprintf "Grade : <input type='text' name='grade' value='%.1f'/>\n" 
               (get_group_project_team_grade groupnum padd teamnum));
        hpr (Printf.sprintf "<input type='hidden' name='groupnum' value='%d'/>\n" groupnum);
        hpr (Printf.sprintf "<input type='hidden' name='projnum' value='%s'/>\n" (pa_to_string padd));
        hpr (Printf.sprintf "<input type='hidden' name='teamnum' value='%d'/>\n" teamnum);
        hpr "<input type='submit' value='Send'/>\n";
        hpr "</form>\n";
      end else
        hpr (Printf.sprintf "Grade : %.1f\n" (get_group_project_team_grade groupnum padd teamnum));
      (* Print team name *)
      if (!export_type = HtmlJscptthen begin 
        hpr "<form method='post' action =''>\nTeam name : ";
        hpr (Printf.sprintf "<input type='text' name='name' value='%s'/>\n" 
               (get_group_project_team_name groupnum padd teamnum));
        hpr (Printf.sprintf "<input type='hidden' name='groupnum' value='%d'/>\n" groupnum);
        hpr (Printf.sprintf "<input type='hidden' name='projnum' value='%s'/>\n" (pa_to_string padd));
        hpr (Printf.sprintf "<input type='hidden' name='teamnum' value='%d'/>\n" teamnum);
        hpr "<input type='submit' value='Set'/>\n";
        hpr "</form>\n";        
      end;
      hpr "</div>\n\n"