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.9 -r1.10
--- openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl	12 Sep 2008 19:44:57 -0000	1.9
+++ openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl	4 Oct 2008 19:26:51 -0000	1.10
@@ -39,11 +39,11 @@
       AnchorField name  -label "User" -orderby name
       Field online_time -label "Last Activity" -html { align right } \
 	  -orderby online_time
+      Field vpm       -label "Views per min" -html { align center } -orderby vpm
       if {$admin} {
 	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
       }
     }] \
@@ -114,7 +114,7 @@
 } 
 switch -glob $orderby {
   name,*         {set index 0; set type -dictionary}
-  online_time,*  {set index 4; set type -real}
+  online_time,*  {set index 3; set type -dictionary}
   activity,*     {set index 5; set type -integer}
   hits,*         {set index 5; set type -dictionary}
   switches,*     {set index 8; set type -integer}
@@ -144,12 +144,13 @@
 		-hits         [lindex $e 6] \
 		-hits.href    [lindex $e 7] \
 		-switches     [lindex $e 8] \
-	        -vpm          [lindex $e 11] \
+	        -vpm          [format %.2f [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]
+		-online_time  [lindex $e 3] \
+        	-vpm 	      [format %.2f [lindex $e 11]]
   }
 }