Index: openacs-4/packages/notifications/tcl/notification-request-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notification-request-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/notifications/tcl/notification-request-procs.tcl	12 Sep 2006 17:51:58 -0000	1.10
+++ openacs-4/packages/notifications/tcl/notification-request-procs.tcl	12 Sep 2006 18:13:38 -0000	1.11
@@ -80,6 +80,15 @@
         return [db_list request_subscribers {}]
     }
 
+    ad_proc -public request_ids {
+        {-type_id:required}
+        {-object_id:required}
+    } {
+        returns a list of request_ids for the object_id of the given type
+    } {
+        return [db_list request_ids {}]
+    }
+
     ad_proc -public delete {
         {-request_id:required}
     } {
Index: openacs-4/packages/notifications/tcl/notification-request-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notification-request-procs.xql,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/notifications/tcl/notification-request-procs.xql	12 Sep 2006 17:51:58 -0000	1.6
+++ openacs-4/packages/notifications/tcl/notification-request-procs.xql	12 Sep 2006 18:13:38 -0000	1.7
@@ -39,4 +39,13 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="notification::request::request_ids.request_ids">
+        <querytext>
+            select request_id
+            from notification_requests
+            where type_id = :type_id
+            and object_id = :object_id
+        </querytext>
+    </fullquery>
+
 </queryset>