let handle_delete_team cgi = try
if ((get_html_arg cgi "delete_team") = "-") then begin
let gnum = int_of_string (get_html_arg cgi "group_team") in
let tnum = int_of_string (get_html_arg cgi "teamnum") in
let padd = !projectssel in
delete_team_for_group_project gnum padd tnum
end with _ -> ()