let xml_to_team (gnum:int) (padd:paddress) (x:Xml.xml) =
let tnum = int_of_string (Xml.attrib x "num") in
let tspec = (try bool_of_string (Xml.attrib x "spec") with _ -> false) in
let tname = Xml.attrib x "name" in
let tgrade = (try float_of_string (Xml.attrib x "grade") with _ -> !default_grade) in
create_team_for_group_project gnum padd tnum tspec;
update_group_project_team_name gnum padd tnum tname;
update_group_project_team_grade gnum padd tnum tgrade