Index: openacs.org-dev/packages/notifications/tcl/sweep-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/notifications/tcl/sweep-init.tcl,v
diff -u -r1.1 -r1.2
--- openacs.org-dev/packages/notifications/tcl/sweep-init.tcl	9 Jul 2002 17:35:10 -0000	1.1
+++ openacs.org-dev/packages/notifications/tcl/sweep-init.tcl	11 Aug 2002 16:43:40 -0000	1.2
@@ -10,19 +10,19 @@
 
 # Hack for now to test immediate deliveries
 # FIXME
-ad_schedule_proc -thread t 60 notification::sweep::cleanup_notifications
+#ad_schedule_proc -thread t 60 notification::sweep::cleanup_notifications
 
-foreach interval [notification::get_all_intervals] {
-    set n_seconds [lindex $interval 2]
-    if {$n_seconds > 0} {
-        set batched_p 1
-    } else {
-        set batched_p 0
-    } 
-
-    if {$n_seconds > 0} {
-        ad_schedule_proc -thread t $n_seconds notification::sweep::sweep_notifications -interval_id [lindex $interval 1] -batched_p $batched_p
-    } else {
-        ad_schedule_proc -thread t 60 notification::sweep::sweep_notifications -interval_id [lindex $interval 1] -batched_p $batched_p
-    }        
-}
+#foreach interval [notification::get_all_intervals] {
+#    set n_seconds [lindex $interval 2]
+#    if {$n_seconds > 0} {
+#        set batched_p 1
+#    } else {
+#        set batched_p 0
+#    } 
+#
+#    if {$n_seconds > 0} {
+#        ad_schedule_proc -thread t $n_seconds notification::sweep::sweep_notifications -interval_id [lindex $interval 1] -batched_p $batched_p
+#    } else {
+#        ad_schedule_proc -thread t 60 notification::sweep::sweep_notifications -interval_id [lindex $interval 1] -batched_p $batched_p
+#    }        
+#}