Index: openacs-4/packages/notifications/tcl/interval-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/interval-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/notifications/tcl/interval-procs.tcl	30 Nov 2002 17:40:18 -0000	1.2
+++ openacs-4/packages/notifications/tcl/interval-procs.tcl	17 Jun 2003 01:04:46 -0000	1.3
@@ -1,12 +1,7 @@
 ad_library {
 
-    Notification Intervals.
+    Notification Intervals Utilities.
 
-    Procs to manage notification intervals. Intervals are the duration of time between notifications.
-    Possible intervals range from "instantaneous" to "weekly".
-
-    CURRENTLY DEPRECATED AND USELESS.
-
     @creation-date 2002-05-24
     @author Ben Adida <ben@openforce.biz>
     @cvs-id $Id$
@@ -15,17 +10,19 @@
 
 namespace eval notification::interval {
 
-    ad_proc -public schedule_all {} {
-        This schedules all the notification procs
+    ad_proc -public get_id_from_name {
+        -name:required
     } {
-    }
 
-    ad_proc -public sweep_notifications {
-        {-interval_id:required}
+        Returns the interval_id for a given interval_name
+
+        @param name The name of interval (weekly, etc)
+        @author Don Baccus (dhogaza@pacifier.com)
+
     } {
-        This sweeps for notifications in a particular interval
-    } {
 
+        return [db_string get_id {}]
+
     }
 
 }