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.9 -r1.10
--- openacs-4/packages/notifications/tcl/notification-request-procs.tcl	6 Jul 2005 14:54:55 -0000	1.9
+++ openacs-4/packages/notifications/tcl/notification-request-procs.tcl	12 Sep 2006 17:51:58 -0000	1.10
@@ -71,6 +71,15 @@
         return [db_string request_count {} -default 0]
     }
 
+    ad_proc -public subscribers {
+        {-type_id:required}
+        {-object_id:required}
+    } {
+        returns a list of subscribers for notifications on that object of this type
+    } {
+        return [db_list request_subscribers {}]
+    }
+
     ad_proc -public delete {
         {-request_id:required}
     } {