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 _ -> ()