let print_header_html_in_table (hpr : string -> unit) (gl:student list)
(paddl:paddress list) groupnum =
let colsp = (if !do_assign_resp then 3 else 2) in
hpr "<tbody>\n<tr valign='middle'>\n";
hpr (Printf.sprintf "<th width='120' rowspan='2' align='left'> Groupe n\176%d </th>\n" groupnum);
if (!export_type = HtmlJscpt) then
hpr "<th align='left' rowspan='2'><a href='list.html?sort=alpha'>Nom</a></th>\n"
else hpr "<th align='left' rowspan='2'>Nom</th>\n";
hpr "<th align='center' rowspan='2'>Pr\233nom</th>\n";
if (not(!nologin_mode)) then hpr "<th rowspan='2'>Login</th>\n";
if (not(!nogrades_mode)) then begin
List.iter (fun padd ->
if (!export_type = HtmlJscpt) then
hpr (Printf.sprintf "<th colspan='%d'>\n<a href=\"project.html?projnum=%s\">%s</a></th>\n" colsp (pa_to_string padd)
(get_group_project_name groupnum padd))
else
hpr (Printf.sprintf "<th colspan='%d'>Proj. %s</th>\n" colsp (pa_to_string padd));
) paddl;
hpr "<th rowspan='2'>Mean</th>";
end;
hpr "</tr>\n<tr>\n";
if (not(!nogrades_mode)) then begin
List.iter (fun padd ->
if (!do_assign_resp) then
hpr "<th width='30'>Resp</th>\n";
if (!export_type = HtmlJscpt) then begin
hpr (Printf.sprintf "<th width='30'><a href='list.html?sort=team%s'>Team</a></th>"
(pa_to_string padd));
hpr (Printf.sprintf "<th width='30'><a href='list.html?sort=grade%s'>Grad</a></th>\n"
(pa_to_string padd))
end else begin
hpr "<th width='30'>Team</th>";
hpr "<th width='30'>Grad</th>\n";
end; ) paddl;
end;
hpr "</tr>\n</tbody>\n"