let update_groups_project_name pnum name = 
  List.iter (fun g -> update_group_project_name g pnum name) !num_groups