Index: openacs.org-dev/packages/notifications/tcl/notification-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/notifications/tcl/notification-procs-oracle.xql,v
diff -u -r1.1.1.2 -r1.1.1.3
--- openacs.org-dev/packages/notifications/tcl/notification-procs-oracle.xql	5 Aug 2002 21:38:55 -0000	1.1.1.2
+++ openacs.org-dev/packages/notifications/tcl/notification-procs-oracle.xql	8 Oct 2002 15:47:15 -0000	1.1.1.3
@@ -16,8 +16,9 @@
             insert
             into notification_user_map
             (notification_id, user_id, sent_date)
-            values
-            (:notification_id, :user_id, sysdate)
+            select :notification_id, :user_id, sysdate
+            from dual where exists (select 1 from notifications
+                                    where notification_id = :notification_id)
         </querytext>
     </fullquery>