Index: openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl,v
diff -u -r1.43.2.10 -r1.43.2.11
--- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	29 Jan 2017 18:15:15 -0000	1.43.2.10
+++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	30 Jan 2017 11:29:51 -0000	1.43.2.11
@@ -334,29 +334,29 @@
     #
     # conntime: time spent in connection thread in ms, not including queuing times
     # totaltime: time since start of the request
-    #set conntime [expr {int(([dict get $partialtimes runtime] + [dict get $partialtimes filtertime]) * 1000)}]
+    set conntime [expr {int(([dict get $partialtimes runtime] + [dict get $partialtimes filtertime]) * 1000)}]
     set totaltime [dict get $partialtimes ms]
     
-    #ns_log notice "url=<$url> totaltime $totaltime"
+    #ns_log notice "conntime $conntime totaltime $totaltime url=<$url>"
     if { $url in {/register/ / /dotlrn/} } {
       #
       # calculate for certain URLs separate statistics
       #
       incr ::agg_time($url) $totaltime
       incr ::count(calls:$url)
     }
-    if {$totaltime > 5000} {
+    if {$conntime > 3000} {
       if {$url eq "/register/"} {
         set color unexpected
-      } elseif {$totaltime > 10000} {
+      } elseif {$conntime > 7000} {
         set color red
-      } elseif {$totaltime > 6000} {
+      } elseif {$conntime > 5000} {
         set color orange
       } else {                
         set color yellow
       }
       incr ::count(longcalls:$color)
-      catch {:log [list $url $totaltime $key $pa $content_type]}
+      catch {:log [list $url $partialtimes $key $pa $content_type]}
     }
     next
   }