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.4 -r1.5
--- openacs-4/packages/acs-admin/www/apm/file-watch-cancel.tcl	13 Mar 2003 14:54:55 -0000	1.4
+++ openacs-4/packages/acs-admin/www/apm/file-watch-cancel.tcl	4 Apr 2003 09:19:59 -0000	1.5
@@ -8,24 +8,8 @@
     @cvs-id $Id$
 } {
     {watch_file ""}
+    {return_url ""}
 }
+apm_file_watch_cancel $watch_file
 
-doc_body_append "[apm_header "Cancel a Watch"]
-"
-
-apm_file_watch_cancel -path $watch_file
-
-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]
-"
+ad_returnredirect $return_url