let update_groups_project_id pnum id = List.iter (fun g -> update_group_project_id g pnum id) !num_groups