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.5 -r1.6 --- openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl 26 Dec 2006 11:46:28 -0000 1.5 +++ openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl 26 Mar 2007 07:44:34 -0000 1.6 @@ -6,7 +6,7 @@ @cvs-id $id: whos-online.tcl,v 1.1.1.1 2004/03/16 16:11:51 nsadmin exp $ } -query { {orderby:optional "activity,desc"} - {all:optional 1} + {all:optional 0} } -properties { title:onevalue context:onevalue @@ -129,20 +129,22 @@ set summarize_categories "" } + + 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 4] \ - -activity [lindex $e 5] \ + -online_time [lindex $e 3] \ + -activity [lindex $e 4] \ -hits [lindex $e 6] \ -hits.href [lindex $e 7] \ -switches [lindex $e 8] \ -peer_address [lindex $e 9] } else { t1 add -name [lindex $e 0] \ -name.href [lindex $e 1] \ - -online_time [lindex $e 4] + -online_time [lindex $e 3] } }