let handle_del_team cgi = handle_generic "del_of"
(fun l t p g ->
let stu_list = List.filter (fun t -> t.login = l) !student_list in
if ((List.length stu_list) = 1) then begin
Printf.printf "Remove : '%s' in team %d, group %d, project %s\n" l t g
(pa_to_string p);
remove_people_from_team (List.hd stu_list) p;
flush stdout;
end;) cgi