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.11 -r1.12
--- openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl	27 Oct 2014 16:42:03 -0000	1.11
+++ openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl	7 Aug 2017 23:48:30 -0000	1.12
@@ -5,8 +5,8 @@
   
   @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 0}
+  {orderby:token,optional "activity,desc"}
+  {all:boolean 0}
 } -properties {
   title:onevalue
   context:onevalue
@@ -31,7 +31,7 @@
 set all [expr {!$all}]
 set url [export_vars -base [ad_conn url] {request_key all}]
 
-TableWidget t1 \
+TableWidget create t1 \
     -actions [subst {
       Action new -label "$label($all)" -url $url -tooltip "$tooltip($all)"
     }] \
@@ -155,3 +155,9 @@
 }
 
 set t1 [t1 asHTML]
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 2
+#    indent-tabs-mode: nil
+# End: