Index: openacs-4/packages/xotcl-request-monitor/www/last-requests.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/last-requests.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/xotcl-request-monitor/www/last-requests.tcl	17 Aug 2006 01:32:27 -0000	1.3
+++ openacs-4/packages/xotcl-request-monitor/www/last-requests.tcl	26 Dec 2006 11:46:28 -0000	1.4
@@ -46,10 +46,10 @@
       Action new -label "$label($all)" -url $url -tooltip "$tooltip($all)"
     }] \
     -columns {
-      Field time -label "Time"
-      Field timediff -label "Seconds ago" -html { align right }
-      Field url -label "Url"
-      Field pa -label "Peer Address"
+      Field time      -label "Time"
+      Field timediff  -label "Seconds ago" -html { align right }
+      AnchorField url -label "URL"
+      Field pa        -label "Peer Address"
     } \
     -no_data "no requests for this user recorded" 
 
@@ -75,7 +75,8 @@
   set url [string_truncate_middle -len 70 $url]
   t1 add       -time [clock format $timestamp] \
 	       -timediff $diff \
-	       -url $url \
+      	       -url $url \
+      	       -url.href "[ad_url]$url" \
 	       -pa $pa
 }
 
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.4 -r1.5
--- openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl	12 Dec 2006 20:25:43 -0000	1.4
+++ openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl	26 Dec 2006 11:46:28 -0000	1.5
@@ -5,13 +5,15 @@
   
   @cvs-id $id: whos-online.tcl,v 1.1.1.1 2004/03/16 16:11:51 nsadmin exp $
 } -query {
-  {orderby:optional "name,asc"}
+  {orderby:optional "activity,desc"}
   {all:optional 1}
 } -properties {
   title:onevalue
   context:onevalue
 }
 
+#  {orderby:optional "name,asc"}
+
 set title "Who's online?"
 set context [list "Who's online"]