let update_group_project_id gnum pnum s =
do_something_group_project (fun p -> set_project_id p s)
(fun () -> debug (Printf.sprintf "!!! Setting ident of project %s failed"
(convert_int_list_to_string pnum))) gnum pnum