Index: openacs-4/packages/notifications/tcl/sweep-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/sweep-procs.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/notifications/tcl/sweep-procs.xql	25 Feb 2003 10:07:13 -0000	1.1
+++ openacs-4/packages/notifications/tcl/sweep-procs.xql	31 Mar 2010 20:35:27 -0000	1.2
@@ -16,4 +16,15 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="notification::sweep::cleanup_notifications.select_invalid_request_ids">
+        <querytext>
+         select request_id
+           from notification_requests
+          where not exists (select 1 from acs_object_party_privilege_map ppm 
+                             where ppm.object_id = notification_requests.object_id
+                               and ppm.privilege = 'read'
+                               and ppm.party_id = notification_requests.user_id);
+        </querytext>
+    </fullquery>
+
 </queryset>