oracle8.1.6
select case when exists (select 1
from acs_objects o
where acs_permission.permission_p(o.object_id, :user_id, 'delete') = 'f'
and o.object_type = :group_type)
then 0 else 1 end
from dual
begin acs_object_type.drop_type('$group_type'); end;
BEGIN
acs_object_type.create_type (
supertype => :supertype,
object_type => :group_type,
pretty_name => :pretty_name,
pretty_plural => :pretty_plural,
table_name => :table_name,
id_column => :id_column,
package_name => :package_name
);
END;
update acs_object_types set dynamic_p='t' where object_type = :group_type
insert into group_type_rels
(group_rel_type_id, rel_type, group_type)
select acs_object_id_seq.nextval, r.rel_type, :group_type
from group_type_rels r
where r.group_type = :supertype
select case when exists (select 1
from user_objects o
where o.object_type='PACKAGE'
and o.object_name = upper(:package_name))
then 1 else 0 end
from dual
drop package [DoubleApos $group_type]
begin acs_object_type.drop_type(:group_type); end;
select distinct o.object_id
from acs_objects o, acs_object_party_privilege_map perm
where perm.object_id = o.object_id
and perm.party_id = :user_id
and perm.privilege = 'delete'
and o.object_type = :group_type