Index: openacs-4/packages/notifications/sql/oracle/notifications-package-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/sql/oracle/notifications-package-create.sql,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/notifications/sql/oracle/notifications-package-create.sql	25 Feb 2003 10:07:41 -0000	1.7
+++ openacs-4/packages/notifications/sql/oracle/notifications-package-create.sql	17 May 2003 10:52:25 -0000	1.8
@@ -289,7 +289,14 @@
    )
    is
    begin
-      acs_object.delete(request_id);
+     for v_notifications in (select notification_id
+                             from notifications n, notification_requests nr
+                             where n.response_id = nr.object_id
+                               and nr.request_id = request_id)
+     loop
+      acs_object.delete(v_notifications.notification_id);
+     end loop;
+     acs_object.delete(request_id);
    end delete;
 
    procedure delete_all (
