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.2 -r1.3
--- openacs.org-dev/packages/notifications/tcl/sweep-init.tcl	11 Aug 2002 16:43:40 -0000	1.2
+++ openacs.org-dev/packages/notifications/tcl/sweep-init.tcl	31 Oct 2002 10:52:18 -0000	1.3
@@ -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
+    }        
+}