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