Index: openacs-4/packages/acs-admin/www/apm/file-watch.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/file-watch.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/acs-admin/www/apm/file-watch.tcl	2 Apr 2003 16:02:40 -0000	1.10
+++ openacs-4/packages/acs-admin/www/apm/file-watch.tcl	4 Apr 2003 09:19:59 -0000	1.11
@@ -9,26 +9,13 @@
 } {
     version_id:integer
     paths:multiple
+    {return_url ""}
 } 
 
-apm_version_info $version_id
+set package_key [apm_package_key_from_version_id $version_id]
 
-set count 0
 foreach path $paths {
-    incr count
-
     apm_file_watch "packages/$package_key/$path"
-
-    lappend path_list $path
 }
 
-doc_body_append "[apm_header -form "method=post action=\"file-add-2\"" [list "version-view?version_id=$version_id" "$pretty_name $version_name"] [list "version-files?version_id=$version_id" "Files"] "Watch file"]"
-
-
-doc_body_append "Marking the following files to be watched:<ul><li>[join $path_list "<li>"]</ul>
-
-<a href=\"version-files?version_id=$version_id\">Return to the list of files for $pretty_name $version_name</a><br>
-<a href=\"./\">Return to the Package Manager</a>
-
-[ad_footer]
-"
+ad_returnredirect $return_url