Index: openacs-4/packages/notifications/tcl/sweep-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/sweep-init.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/notifications/tcl/sweep-init.tcl	29 May 2002 05:12:01 -0000	1.1
+++ openacs-4/packages/notifications/tcl/sweep-init.tcl	1 Jul 2002 19:35:30 -0000	1.2
@@ -13,5 +13,12 @@
 ad_schedule_proc -thread t 60 notification::sweep::cleanup_notifications
 
 foreach interval [notification::get_all_intervals] {
-    ad_schedule_proc -thread t 120 notification::sweep::sweep_notifications -interval_id [lindex $interval 1]
+    set n_seconds [lindex $interval 2]
+    if {$n_seconds > 0} {
+        set batched_p 1
+    } else {
+        set batched_p 0
+    } 
+
+    ad_schedule_proc -thread t $n_seconds notification::sweep::sweep_notifications -interval_id [lindex $interval 1] -batched_p $batched_p
 }