let handle_create_team cgi = try 
  if ((get_html_arg cgi "create_team") = "+"then begin
    let gnum = int_of_string (get_html_arg cgi "group_team"in 
    let padd = !projectssel in 
      create_new_team_for_group_project gnum padd
  end with _ -> ()