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.4
--- 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:54:55 -0000	1.4
@@ -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]
 "
-
Index: openacs-4/packages/acs-admin/www/apm/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/index.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-admin/www/apm/index.tcl	10 Mar 2003 12:01:54 -0000	1.9
+++ openacs-4/packages/acs-admin/www/apm/index.tcl	13 Mar 2003 14:54:55 -0000	1.10
@@ -110,7 +110,8 @@
 # Build the list of files we're watching.
 set watch_files [nsv_array names apm_reload_watch]
 if { [llength $watch_files] > 0 } {
-    doc_body_append "<h3>Watches</h3><ul>\n"
+    doc_body_append "<h3>Watches</h3><ul>
+<li><a href=\"file-watch-cancel\">Stop watching all files</a></li><br />"
     foreach file [lsort $watch_files] {
 	if { [string compare $file "."] } {
 	    doc_body_append "<li>$file (<a href=\"file-watch-cancel?watch_file=[ns_urlencode $file]\">stop watching this file</a>)\n"
Index: openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl	10 Mar 2003 19:59:04 -0000	1.18
+++ openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl	13 Mar 2003 14:54:35 -0000	1.19
@@ -283,6 +283,22 @@
     nsv_set apm_reload_watch $path 1
 }
 
+ad_proc -public apm_file_watch_cancel {
+    {-path ""}
+} {
+    Stop watching a certain file, or all watched files if path
+    is not specified. If the file is not watched
+    this procedure does nothing.
+
+    @author Peter Marklund
+} {
+    if { ![empty_string_p $path] } {
+        catch { nsv_unset apm_reload_watch $path }
+    } else {
+        catch {nsv_unset apm_reload_watch}
+    }
+}
+
 ad_proc -private apm_watch_all_files { package_key } {
     Watch all Tcl procs and xql query files in the given
     package