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.7 -r1.8
--- openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl	23 May 2008 19:23:24 -0000	1.7
+++ openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl	25 Jun 2008 17:03:04 -0000	1.8
@@ -104,6 +104,7 @@
 		     $switches \
 		     $peer \
 		     $user_id \
+		     [throttle views_per_minute $user_id] \
 		    ]
 }
 
@@ -118,6 +119,7 @@
   hits,*         {set index 5; set type -dictionary}
   switches,*     {set index 8; set type -integer}
   peer_address,* {set index 9; set type -dictionary}
+  vpm,*          {set index 11; set type -real}
 }
 
 if {$admin} {
@@ -133,22 +135,21 @@
 }
 
 
-
 foreach e [lsort $type $order -index $index $users] {
   if {$admin} {
-    t1 add 	-name [lindex $e 0] \
-		-name.href [lindex $e 1] \
-		-online_time [lindex $e 3] \
-		-activity [lindex $e 4] \
-		-hits [lindex $e 6] \
-		-hits.href [lindex $e 7] \
-		-switches [lindex $e 8] \
-		-vpm [throttle views_per_minute [lindex $e 10]] \
+    t1 add 	-name         [lindex $e 0] \
+		-name.href    [lindex $e 1] \
+		-online_time  [lindex $e 3] \
+		-activity     [lindex $e 4] \
+		-hits         [lindex $e 6] \
+		-hits.href    [lindex $e 7] \
+		-switches     [lindex $e 8] \
+	        -vpm          [lindex $e 11] \
 		-peer_address [lindex $e 9]
   } else {
-    t1 add 	-name [lindex $e 0] \
-		-name.href [lindex $e 1] \
-		-online_time [lindex $e 3]
+    t1 add 	-name         [lindex $e 0] \
+		-name.href    [lindex $e 1] \
+		-online_time  [lindex $e 3]
   }
 }