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 -N -r1.6.2.3 -r1.6.2.4
--- openacs-4/packages/acs-admin/www/apm/index.tcl 13 Mar 2003 14:57:32 -0000 1.6.2.3
+++ openacs-4/packages/acs-admin/www/apm/index.tcl 31 Mar 2003 13:30:37 -0000 1.6.2.4
@@ -49,6 +49,8 @@
doc_body_append "
[ad_dimensional $dimensional_list] |
"
+set use_watches_p [expr ! [ad_parameter -package_id [ad_acs_kernel_id] PerformanceModeP request-processor 1]]
+
set table_def {
{ package_key "Key" "" "$package_key | " }
{ pretty_name "Name" "" "$pretty_name | " }
@@ -74,7 +76,11 @@
action "" "" { [eval {
if { $installed_p == "t" && $enabled_p == "t" } {
- set watch_all_link "watch all files"
+ if { ! [ad_parameter -package_id [ad_acs_kernel_id] PerformanceModeP request-processor 1] } {
+ set watch_all_link "watch all files"
+ } 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 "Watches
+if { $use_watches_p } {
+ set watch_files [nsv_array names apm_reload_watch]
+ if { [llength $watch_files] > 0 } {
+ doc_body_append "Watches\n"
+ foreach file [lsort $watch_files] {
+ if { [string compare $file "."] } {
+ doc_body_append "- $file (stop watching this file)\n"
+ }
+ }
+ doc_body_append "
"
+ }
+} else {
+ set kernel_id [ad_acs_kernel_id]
+ doc_body_append "Watches
+Watching of files is not enabled in performance mode (see the PerformanceModeP parameter on the ACS Kernel parameter page)"
}
doc_body_append "
|