Index: openacs-4/packages/xotcl-request-monitor/www/stat-details.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/stat-details.tcl,v
diff -u -r1.13.2.3 -r1.13.2.4
--- openacs-4/packages/xotcl-request-monitor/www/stat-details.tcl 25 Jan 2020 14:13:46 -0000 1.13.2.3
+++ openacs-4/packages/xotcl-request-monitor/www/stat-details.tcl 25 Jan 2020 14:15:14 -0000 1.13.2.4
@@ -26,9 +26,9 @@
set hide_patterns [parameter::get -parameter hide-requests -default {*.css}]
array set apps {
- calendar 1 acs-templating 1 forums 1 file-storage 1 one-community 1
- xowiki 1
- annotations 1 gradebook 1 homework 1 lecturecast 1 res 1
+ calendar 1 acs-templating 1 forums 1 file-storage 1 one-community 1
+ xowiki 1
+ annotations 1 gradebook 1 homework 1 lecturecast 1 res 1
}
array set vuh {
ical 1
@@ -144,7 +144,7 @@
switch -glob $orderby {
*,desc {set order -decreasing}
*,asc {set order -increasing}
-}
+}
switch -glob $orderby {
url,* {set index 0; set type -dictionary}
totaltime,* {set index 1; set type -integer}
@@ -159,7 +159,7 @@
Action new -label "$with_param_label($with_param)" -url $url_param -tooltip "with_param_tooltip($with_param)"
Action new -label "$with_apps_label($with_apps)" -url $url_apps -tooltip "with_apps_tooltip($with_apps)"
Action new -label "Delete Statistics" -url flush-url-statistics \
- -tooltip "Delete URL Statistics"
+ -tooltip "Delete URL Statistics"
}] \
-columns {
AnchorField url -label "Request" -orderby url
@@ -179,28 +179,28 @@
if {!$all} {
set exclude 0
foreach pattern $hide_patterns {
- if {[string match $pattern $url]} {
- set exclude 1
- incr hidden
- break
- }
+ if {[string match $pattern $url]} {
+ set exclude 1
+ incr hidden
+ break
+ }
}
if {$exclude} continue
}
-
- t1 add -url [ad_string_truncate_middle -len 80 $url] \
- -url.href [expr {[string match "*...*" $url] ? "" : "[ad_url]$url" }] \
- -totaltime [lindex $l 1] \
- -cnt [lindex $l 2] \
- -avg $avg \
- -total [format %.2f%% [expr {[lindex $l 1]*100.0/$total}]]
+
+ t1 add -url [ad_string_truncate_middle -len 80 $url] \
+ -url.href [expr {[string match "*...*" $url] ? "" : "[ad_url]$url" }] \
+ -totaltime [lindex $l 1] \
+ -cnt [lindex $l 2] \
+ -avg $avg \
+ -total [format %.2f%% [expr {[lindex $l 1]*100.0/$total}]]
}
set t1 [t1 asHTML]
append user_string "Grand Total Avg Response time: " \
- [format %6.2f $total_avg] " seconds/call " \
- "(base: $total_cnt requests)
"
+ [format %6.2f $total_avg] " seconds/call " \
+ "(base: $total_cnt requests)
"
append user_string "$hidden requests hidden."
if {$hidden>0} {