Index: openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl	17 May 2003 09:58:37 -0000	1.3
+++ openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl	28 Aug 2003 09:41:39 -0000	1.4
@@ -235,6 +235,14 @@
         Delete the given application group and all relational segments and constraints dependent
         on it (handled by the PL/[pg]SQL API
     } {
+        # LARS HACK:
+        # Delete permissions on:
+        # - the application group
+        # - any relational segment of this group
+        # - any relation with this gorup
+        # We really ought to have cascading deletes on acs_permissions.grantee_id (and object_id)
+        db_dml delete_perms {}
+
         db_exec_plsql delete {}
     }