Index: openacs-4/packages/xotcl-request-monitor/www/last-requests.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/last-requests.tcl,v
diff -u -r1.11.2.2 -r1.11.2.3
--- openacs-4/packages/xotcl-request-monitor/www/last-requests.tcl 25 Jan 2020 14:13:46 -0000 1.11.2.2
+++ openacs-4/packages/xotcl-request-monitor/www/last-requests.tcl 25 Jan 2020 14:15:14 -0000 1.11.2.3
@@ -21,9 +21,9 @@
set person [person::get_person_info -person_id $request_key]
set user_string "[dict get $person first_names] [dict get $person last_name]"
set tmp_url [acs_community_member_url -user_id $request_key]
- append user_string " ($request_key)"
+ append user_string " ($request_key)"
} else {
- set user_string $request_key
+ set user_string $request_key
}
append title $user_string
@@ -51,7 +51,7 @@
AnchorField url -label "URL"
Field pa -label "Peer Address"
} \
- -no_data "no requests for this user recorded"
+ -no_data "no requests for this user recorded"
set all [expr {!$all}]
set requests [throttle users last_requests $request_key]
@@ -65,20 +65,20 @@
set exclude 0
foreach pattern $hide_patterns {
if {[string match $pattern $url]} {
- set exclude 1
- incr hidden
- break
+ set exclude 1
+ incr hidden
+ break
}
}
if {$exclude} continue
}
set diff [expr {$last_timestamp-$timestamp}]
set url_label [ad_string_truncate_middle -len 70 $url]
t1 add -time [clock format $timestamp] \
- -timediff $diff \
- -url $url_label \
- -url.href "[ad_url]$url" \
- -pa $pa
+ -timediff $diff \
+ -url $url_label \
+ -url.href "[ad_url]$url" \
+ -pa $pa
}
set user_string "$hidden requests hidden."