Index: openacs-4/packages/acs-subsite/www/admin/group-types/delete-2-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/Attic/delete-2-oracle.xql,v diff -u -N --- openacs-4/packages/acs-subsite/www/admin/group-types/delete-2-oracle.xql 7 Aug 2017 23:47:58 -0000 1.4 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,79 +0,0 @@ - - - oracle8.1.6 - - - - - 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 - - - - - - - - - select case when exists (select 1 from acs_object_types t where t.object_type = :group_type) - then 1 - else 0 - end - from dual - - - - - - - drop package [DoubleApos $group_type] - - - - - - -delete from group_type_rels where group_type = :group_type - - - - - - -begin acs_object_type.drop_type(:group_type); end; - - - - - - -drop table $table_name - - - - - -begin -delete from group_types where group_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 - - - - -