let print_team_html_in_table (hpr:string -> unit) (sval:string)
    (gl:student list) (padd:paddress) (groupnum:int) (teamnum:int) = 
    let spval = if (sval = ""then "" else 
      Printf.sprintf "<br/>(<font size='-2' color='#AA0000'>%s</font>)" sval in 
    (* Print team header *)
    if (!export_type = HtmlJscptthen begin
      hpr "<td align='left'><form method='post' action=''>";
      hpr (Printf.sprintf "<input type='submit' value='-' class='buttonpm' name='delete_team'/>\n<input type='hidden' value='%d' name='group_team'/>\n<input type='hidden' value='%s' name='projnum'/>\n<input type='hidden' value='%d' name='teamnum'/>" groupnum (pa_to_string padd) teamnum);
      hpr (Printf.sprintf "<a href=\"team.html?groupnum=%d&amp;projnum=%s&amp;teamnum=%d\">\n%s</a> %s &nbsp;\n" groupnum (pa_to_string padd) teamnum 
             (get_group_project_team_name groupnum padd teamnum) spval);
      hpr "</form></td>\n";
    end else
      hpr (Printf.sprintf "<td align=\"left\"> Equipe n\176%d %s</td>\n" teamnum spval);
    (* Print responsibilities *)
    if (!do_assign_resp) then begin
      let caps = get_captains gl groupnum padd teamnum in
      let secs = get_secretaries gl groupnum padd teamnum in
        hpr "<td>";
        print_form_student_list_html hpr Capt caps padd groupnum teamnum;
        hpr "</td>\n<td>";
        print_form_student_list_html hpr Secr secs padd groupnum teamnum;            
        hpr "</td>\n";
    end;
    (* Print programmers *)
    let pros = get_progs gl groupnum padd teamnum in
      hpr "<td>";
      print_form_student_list_html hpr Prog pros padd groupnum teamnum;            
      hpr "</td>\n";
    (* Print grade *)
    if (not(!nogrades_mode)) then begin
    let grad = get_group_project_team_grade groupnum padd teamnum in  
      if (!export_type = HtmlJscpt&& (!allow_grading) then 
        hpr (Printf.sprintf "<td><form method='post' action=''>\n<input type='text' size='5' value='%s' name='grade'/>\n<input type='submit' value='Grade' name='grade_team_%d_proj_%s_grp_%d'/>\n</form></td>\n" (if grad >= 0. then string_of_float grad else ""
               teamnum (pa_to_string padd) groupnum)
      else if (grad > 0.) then hpr (Printf.sprintf "<td>%.1f</td>\n" grad)
      else hpr "<td></td>\n";
    end