Index: openacs-4/packages/notifications/tcl/notification-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notification-procs.xql,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/notifications/tcl/notification-procs.xql	2 Sep 2008 22:31:04 -0000	1.11
+++ openacs-4/packages/notifications/tcl/notification-procs.xql	22 Nov 2017 14:19:35 -0000	1.12
@@ -84,4 +84,15 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="notification::mark_sent.insert_notification_user_map">
+        <querytext>
+            insert
+            into notification_user_map
+            (notification_id, user_id, sent_date)
+            select :notification_id, :user_id, current_timestamp
+            from dual where exists (select 1 from notifications
+                                    where notification_id = :notification_id)
+        </querytext>
+    </fullquery>
+    
 </queryset>