Index: openacs-4/packages/xotcl-request-monitor/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/index.tcl,v diff -u -N -r1.24.2.4 -r1.24.2.5 --- openacs-4/packages/xotcl-request-monitor/www/index.tcl 6 Sep 2016 17:45:09 -0000 1.24.2.4 +++ openacs-4/packages/xotcl-request-monitor/www/index.tcl 18 Jan 2017 08:13:55 -0000 1.24.2.5 @@ -92,8 +92,13 @@ set um [throttle trend user_count_minutes] if { $vm eq "" || $um eq ""} { return "NO DATA" } set views_per_sec [expr {[lindex $vm end]/60.0}] - #ns_log notice "um='$um' vm='$vm' expr {60.0*$views_per_sec/[lindex $um end]}" - set views_per_min_per_user [expr {60.0*$views_per_sec/[lindex $um end]}] + set currentUsers [lindex $um end] + if {$currentUsers > 0} { + #ns_log notice "um='$um' vm='$vm' expr {60.0*$views_per_sec/[lindex $um end]}" + set views_per_min_per_user [expr {60.0 * $views_per_sec / $currentUsers}] + } else { + set views_per_min_per_user "0" + } set view_time [expr {$views_per_min_per_user>0 ? " avg. view time: [format %4.1f [expr {60.0/$views_per_min_per_user}]]" : ""}] return "[format %4.1f $views_per_sec] views/sec, [format %4.3f $views_per_min_per_user] views/min/user, $view_time"