Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/notifications/www/test-cleanup.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/notifications/www/test.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/notifications/www/test.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/www/Attic/test.tcl,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/packages/notifications/www/test.tcl	29 May 2002 05:12:01 -0000	1.2
+++ openacs-4/packages/notifications/www/test.tcl	17 Dec 2002 16:58:06 -0000	1.2.2.1
@@ -1,7 +1,22 @@
+ad_page_contract {
 
-# Send it all out
-foreach interval [notification::get_all_intervals] {
-    notification::sweep::sweep_notifications -interval_id [lindex $interval 1]
+    Simple script to allow one to sweep the notifications queue for a particular
+    interval.
+
+    To use this for testing remove your local copy of ../tcl/sweep-init.tcl, restart
+    your server and use ../www/test-cleanup.tcl to clean up notifications that have
+    been sent. 
+
 }
 
-doc_body_append "done"
+set intervals [notification::get_all_intervals]
+
+ad_form -name sweep -form {
+    {interval_id:integer(select)        {label "Choose interval"}
+                                        {options $intervals}}
+} -on_submit {
+    notification::sweep::sweep_notifications -interval_id $interval_id
+    ad_script_abort
+}
+
+ad_return_template