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