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.4 -r1.5
--- openacs-4/packages/notifications/tcl/notification-request-procs.tcl	30 Nov 2002 17:40:18 -0000	1.4
+++ openacs-4/packages/notifications/tcl/notification-request-procs.tcl	16 Jan 2003 13:53:10 -0000	1.5
@@ -52,6 +52,15 @@
         return [db_string select_request_id {} -default {}]
     }
 
+    ad_proc -public request_exists {
+        {-type_id:required}
+        {-object_id:required}
+    } {
+        returns true if at least one request exists for this object and type
+    } {
+        return [expr { [db_string request_count {}] > 0 }]
+    }
+
     ad_proc -public delete {
         {-request_id:required}
     } {