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.10 -r1.11
--- openacs-4/packages/acs-admin/www/apm/index.tcl	13 Mar 2003 14:54:55 -0000	1.10
+++ openacs-4/packages/acs-admin/www/apm/index.tcl	31 Mar 2003 13:23:34 -0000	1.11
@@ -49,6 +49,8 @@
 
 doc_body_append "<center><table><tr><td>[ad_dimensional $dimensional_list]</td></tr></table></center>"
 
+set use_watches_p [expr ! [ad_parameter -package_id [ad_acs_kernel_id] PerformanceModeP request-processor 1]]
+
 set table_def {
     { package_key "Key" "" "<td><a href=\"version-view?version_id=$version_id\">$package_key</a></td>" }
     { pretty_name "Name" "" "<td><a href=\"version-view?version_id=$version_id\">$pretty_name</a></td>" }
@@ -74,7 +76,11 @@
 	action "" "" {<td bgcolor=white>&nbsp;&nbsp;[eval {
 
 	    if { $installed_p == "t" && $enabled_p == "t" } {
-                set watch_all_link "<a href=\"package-watch?package_key=$package_key\">watch all files</a>"
+	        if { ! [ad_parameter -package_id [ad_acs_kernel_id] PerformanceModeP request-processor 1] } {
+                    set watch_all_link "<a href=\"package-watch?package_key=$package_key\">watch all files</a>"
+                } else {
+                    set watch_all_link ""
+                }
                 set format_string $watch_all_link
 
                 if {[string equal [apm_version_load_status $version_id] "needs_reload"]} {
@@ -108,16 +114,22 @@
 "
 
 # 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>
+if { $use_watches_p } {
+    set watch_files [nsv_array names apm_reload_watch]
+    if { [llength $watch_files] > 0 } {
+        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"
-	}
+        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"
+            }
+        }
+        doc_body_append "</ul>\n"
     }
-    doc_body_append "</ul>\n"
+} else {
+    set kernel_id [ad_acs_kernel_id]
+    doc_body_append "<h3>Watches</h3>
+Watching of files is not enabled in performance mode (see the PerformanceModeP parameter on the <a href=\"/admin/site-map/parameter-set?package_id=$kernel_id&package_key=acs-kernel&section_name=all\">ACS Kernel parameter page</a>)"
 }
 
 doc_body_append "