Index: openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl	26 Mar 2007 07:44:34 -0000	1.6
+++ openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl	23 May 2008 19:23:24 -0000	1.7
@@ -43,6 +43,7 @@
 	Field activity -label "Activity" -html { align right } -orderby activity
 	AnchorField hits -label "Hits" -orderby hits
 	Field switches  -label "Switches" -html { align center } -orderby switches
+	Field vpm       -label "Views per min" -html { align center } -orderby vpm
 	Field peer_address -label "Peer" -orderby peer_address
       }
     }] \
@@ -101,7 +102,9 @@
 		     [format %.2f [lindex $smooth 0]] \
 		     $hits $loadparam $detail_url \
 		     $switches \
-		     $peer]
+		     $peer \
+		     $user_id \
+		    ]
 }
 
 switch -glob $orderby {
@@ -140,6 +143,7 @@
 		-hits [lindex $e 6] \
 		-hits.href [lindex $e 7] \
 		-switches [lindex $e 8] \
+		-vpm [throttle views_per_minute [lindex $e 10]] \
 		-peer_address [lindex $e 9]
   } else {
     t1 add 	-name [lindex $e 0] \