let handle_add_resp_team resp cgi = handle_generic
(Printf.sprintf "add_%s_to" (resp_to_string resp))
(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 "Adding : '%s' in team %d, group %d, project %s (%s)\n"
l t g (pa_to_string p) (resp_to_full_string resp);
add_people_to_team (List.hd stu_list) resp p t;
flush stdout;
end;) cgi