Index: openacs-4/packages/acs-subsite/tcl/group-type-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-type-procs-postgresql.xql,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/tcl/group-type-procs-postgresql.xql	14 Jun 2018 09:16:48 -0000	1.4
+++ openacs-4/packages/acs-subsite/tcl/group-type-procs-postgresql.xql	11 Dec 2018 14:14:41 -0000	1.5
@@ -72,5 +72,35 @@
 
       </querytext>
 </partialquery>
- 
+
+<partialquery name="group_type::delete.package_exists">
+  <querytext>
+    select case when exists (select 1
+    from pg_proc
+    where proname like :package_name || '%')
+    then 1 else 0 end
+  </querytext>
+</partialquery>
+
+<partialquery name="group_type::delete.package_drop">
+  <querytext>
+    select drop_package(:group_type)
+  </querytext>
+</partialquery>
+
+<partialquery name="group_type::delete.drop_type">
+  <querytext>
+    select acs_object_type__drop_type(:group_type, 'f')
+  </querytext>
+</partialquery>
+
+<fullquery name="group_type::delete.select_group_ids">
+  <querytext>
+    select o.object_id
+    from acs_objects o
+    where o.object_type = :group_type
+    and   acs_permission__permission_p(o.object_id, :user_id, 'delete')
+  </querytext>
+</fullquery>
+
 </queryset>