Index: openacs-4/packages/acs-admin/www/apm/file-watch-cancel.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/file-watch-cancel.tcl,v
diff -u -r1.3 -r1.3.2.1
--- openacs-4/packages/acs-admin/www/apm/file-watch-cancel.tcl	10 Sep 2002 22:21:59 -0000	1.3
+++ openacs-4/packages/acs-admin/www/apm/file-watch-cancel.tcl	13 Mar 2003 14:57:32 -0000	1.3.2.1
@@ -1,23 +1,31 @@
 ad_page_contract {
-    Stops watching a particular file.
+    Stops watching a particular file or all files if
+    no file is specified.
    
     @param watch_file The file to stop watching.
     @author Jon Salz [jsalz@arsdigita.com]
     @creation-date 17 April 2000
     @cvs-id $Id$
 } {
-    watch_file
+    {watch_file ""}
 }
 
 doc_body_append "[apm_header "Cancel a Watch"]
 "
 
-catch { nsv_unset apm_reload_watch $watch_file }
+apm_file_watch_cancel -path $watch_file
 
-doc_body_append "No longer watching the following file:<ul><li>$watch_file</ul>
+if { ![empty_string_p $watch_file] } {
+    doc_body_append "No longer watching the following file:<ul><li>$watch_file</ul>"
+} else {
+    doc_body_append "Canceled all watches"
+}
 
+
+doc_body_append "
+<p>
 <a href=\"./\">Return to the Package Manager</a>
+</p>
 
 [ad_footer]
 "
-