Index: openacs-4/packages/xotcl-request-monitor/www/whos-online-today.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/whos-online-today.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/xotcl-request-monitor/www/whos-online-today.tcl	27 Oct 2014 16:42:03 -0000	1.4
+++ openacs-4/packages/xotcl-request-monitor/www/whos-online-today.tcl	7 Aug 2017 23:48:30 -0000	1.5
@@ -5,7 +5,7 @@
   
   @cvs-id $id: whos-online.tcl,v 1.1.1.1 2004/03/16 16:11:51 nsadmin exp $
 } -query {
-  {orderby:optional "date,desc"}
+  {orderby:token,optional "date,desc"}
   {all:optional 0}
 } -properties {
   title:onevalue
@@ -25,7 +25,7 @@
 set all [expr {!$all}]
 set url [export_vars -base [ad_conn url] {all}]
 
-TableWidget t1 \
+TableWidget create t1 \
     -actions [subst {
       Action new -label "$label($all)" -url $url -tooltip "$tooltip($all)"
     }] \
@@ -84,3 +84,9 @@
 }
 
 set t1 [t1 asHTML]
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 2
+#    indent-tabs-mode: nil
+# End: