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.4.2.4 -r1.4.2.5
--- openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl	14 Jul 2020 19:52:19 -0000	1.4.2.4
+++ openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl	15 Jul 2020 10:38:48 -0000	1.4.2.5
@@ -57,7 +57,7 @@
 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
+    lassign $line wday mon day hours tz year dash url time uid ip contentType pool
     set userinfo [::xo::userid_link $uid]
     set iplink [subst {<a href="[export_vars -base ip-info {ip}]">[ns_quotehtml $ip]</a>}]
     if {[llength $time] > 1} {
@@ -92,7 +92,9 @@
         "<td class='$color(totaltime)'>$year&nbsp;$mon&nbsp;$day&nbsp;$hours</td>" \
         "<td class='text-right  $color(totaltime)'>$userinfo</td>" \
         "<td class='$color(totaltime)'>$iplink</td>" \
-        "<td class='$color(totaltime)'>$request</td></tr>\n"
+        "<td class='$color(totaltime)'>$pool</td>" \
+        "<td class='$color(totaltime)'>$request</td>" \
+        "</tr>\n"
 }
 
 set doc(title) "Long Calls"