declare
	v_group_id integer;
	v_rel_id integer;
begin
for row in (select group_id, group_name from acs3x.user_groups where group_name in ('Site-Wide Administration', 'Client Administrators', 'News Administration', 'Translators')) loop
	v_group_id := acs_group.new(group_name => row.group_name);

	for row_2 in (select distinct pm.party_id from user_party_map pm, acs3x.user_group_map gm where gm.group_id = row.group_id and gm.user_id = pm.user_id) loop
		 v_rel_id := membership_rel.new(object_id_one => v_group_id,
						object_id_two => row_2.party_id);
	end loop;
end loop;
end;
/