Index: openacs-4/packages/acs-subsite/tcl/group-type-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-type-procs-oracle.xql,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/tcl/group-type-procs-oracle.xql 3 Aug 2001 21:09:20 -0000 1.2
+++ openacs-4/packages/acs-subsite/tcl/group-type-procs-oracle.xql 11 Dec 2018 14:14:41 -0000 1.3
@@ -66,5 +66,38 @@
-
+
+
+ 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
+
+
+