let print_team_project_by_group_txt (hpr:string -> unit)
(gnum:int) (padd:paddress) (tnum:int) =
let tsiz = get_gpt_size gnum padd tnum in
if (tsiz > 0) then begin
hpr (Printf.sprintf "---- Groupe %d ---- Projet %s ---- %s ---- \n"
gnum (pa_to_string padd) (get_group_project_team_name gnum padd tnum));
if (!do_assign_resp) then begin
let caps = get_captains !student_list gnum padd tnum in
let secs = get_secretaries !student_list gnum padd tnum in
hpr "Capt : ";
List.iter (print_student_light hpr) caps;
hpr "\n";
hpr "Secr : ";
List.iter (print_student_light hpr) secs;
hpr "\n";
end;
let mem = get_progs !student_list gnum padd tnum in
List.iter (fun s -> hpr "Prog : ";
print_student_light hpr s; hpr "\n";) mem;
end