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."