Index: openacs-4/packages/acs-subsite/tcl/application-group-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/Attic/application-group-procs.xql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/tcl/application-group-procs.xql	17 May 2003 09:58:37 -0000	1.4
+++ openacs-4/packages/acs-subsite/tcl/application-group-procs.xql	28 Aug 2003 09:41:39 -0000	1.5
@@ -10,5 +10,16 @@
 	    
       </querytext>
 </fullquery>
+
+<fullquery name="application_group::delete.delete_perms">      
+      <querytext>
+    
+            delete from acs_permissions
+            where  grantee_id = :group_id
+            or     grantee_id in (select segment_id from rel_segments where group_id = :group_id)
+            or     grantee_id in (select rel_id from acs_rels where object_id_one = :group_id or object_id_two = :group_id)
+
+      </querytext>
+</fullquery>
  
 </queryset>