Index: openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl,v
diff -u -r1.2.2.1 -r1.2.2.2
--- openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl 10 Sep 2015 08:10:46 -0000 1.2.2.1
+++ openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl 26 Apr 2016 07:25:29 -0000 1.2.2.2
@@ -38,10 +38,10 @@
set c1 [string range $c [lindex $o 0]+1 end]
set rows ""
foreach line [lreverse [split $c1 \n]] {
- if {$line eq ""} continue
- lassign $line wday mon day hours tz year dash url time uid ip fmt
- set userinfo [::xo::userid_link $uid]
- set iplink "$ip"
+ if {$line eq ""} continue
+ lassign $line wday mon day hours tz year dash url time uid ip fmt
+ set userinfo [::xo::userid_link $uid]
+ set iplink [subst {[ns_quotehtml $ip]}]
if {$time < 6000} {
set class info
} elseif {$time < 10000} {