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
if (!export_type = HtmlJscpt) then 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&projnum=%s&teamnum=%d\">\n%s</a> %s \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);
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;
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";
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