postgresql7.1
DECLARE
row record;
BEGIN
-- the acs_group package takes care of segments referred
-- to by rel_constraints.rel_segment. We delete the ones
-- references by rel_constraints.required_rel_segment here.
for row in select cons.constraint_id
from rel_constraints cons, rel_segments segs
where segs.segment_id = cons.required_rel_segment
and segs.group_id = :group_id loop
perform rel_segment__delete(row.constraint_id);
end loop;
-- delete the actual group
perform ${package_name}__delete(:group_id);
return 1;
END;
select acs_group__member_p(:user_id,:group_id, :cascade)
select role.pretty_name,
gr.rel_type
from group_rels gr,
acs_rel_types rt,
acs_rel_roles role
where gr.group_id = :group_id
and rt.rel_type = gr.rel_type
and role.role = rt.role_two
and rt.object_type_two = :object_type
order by (case when gr.rel_type = 'membership_rel' then 0 else 1 end)||role.pretty_name