let print_team_html (hpr:string -> unit)
(gl:student list) (padd:paddress) (groupnum:int) (teamnum:int) =
if (!export_type = HtmlJscpt) then
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
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;
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";
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));
if (!export_type = HtmlJscpt) then 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"