Index: openacs-4/packages/notifications/www/test.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/www/test.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/notifications/www/test.tcl	29 May 2002 05:12:01 -0000	1.2
+++ openacs-4/packages/notifications/www/test.tcl	16 Jan 2003 13:53:40 -0000	1.3
@@ -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