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.10 -r1.11
--- openacs-4/packages/notifications/sql/oracle/notifications-package-create.sql	30 Sep 2003 12:10:08 -0000	1.10
+++ openacs-4/packages/notifications/sql/oracle/notifications-package-create.sql	29 Jun 2004 10:18:40 -0000	1.11
@@ -244,6 +244,11 @@
    procedure delete_all (
       object_id                        in notification_requests.object_id%TYPE default null
    );
+
+   procedure delete_all_for_user (
+      user_id                        in notification_requests.user_id%TYPE default null
+   );
+
 end notification_request;
 /
 show errors
@@ -312,6 +317,20 @@
       END LOOP;
    end delete_all;
 
+   procedure delete_all_for_user (
+      user_id                        in notification_requests.user_id%TYPE default null
+   )
+   is
+      v_request                        notification_requests%ROWTYPE;
+   begin
+      for v_request in
+      (select request_id from notification_requests
+           where user_id= delete_all_for_user.user_id)
+      LOOP
+              notification_request.del(v_request.request_id);
+      END LOOP;
+   end delete_all_for_user;
+
 end notification_request;
 /
 show errors
