Index: openacs-4/packages/notifications/tcl/notification-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notification-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/notifications/tcl/notification-procs.tcl	29 May 2002 05:12:01 -0000	1.2
+++ openacs-4/packages/notifications/tcl/notification-procs.tcl	30 May 2002 06:26:09 -0000	1.3
@@ -14,6 +14,18 @@
         return "notifications"
     }
 
+    ad_proc -public get_interval_id {
+        {-name:required}
+    } {
+        return [db_string select_interval_id {} -default ""]
+    }
+
+    ad_proc -public get_delivery_method_id {
+        {-name:required}
+    } {
+        return [db_string select_delivery_method_id {} -default ""]
+    }
+
     ad_proc -public get_all_intervals {} {
         return [db_list_of_lists select_all_intervals {}]
     }