Index: openacs-4/packages/xotcl-request-monitor/www/last101.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/last101.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/xotcl-request-monitor/www/last101.tcl	27 Oct 2014 16:42:02 -0000	1.3
+++ openacs-4/packages/xotcl-request-monitor/www/last101.tcl	7 Aug 2017 23:48:30 -0000	1.4
@@ -5,7 +5,7 @@
 
     @cvs-id $id
 } -query {
-    {orderby:optional "time,desc"}
+    {orderby:token,optional "time,desc"}
 } -properties {
     title:onevalue
     context:onevalue
@@ -16,15 +16,15 @@
 set stat [list]
 foreach {key value} [throttle last100] {lappend stat $value}
 
-Class CustomField -volatile \
+Class create CustomField -volatile \
     -instproc render-data {row} {
       html::div -style {
 	border: 1px solid #a1a5a9; padding: 0px 5px 0px 5px; background: #e2e2e2} {
-	  html::t  [$row set [my name]] 
+	  html::t  [$row set [:name]] 
 	}
     }
 
-TableWidget t1 -volatile \
+TableWidget create t1 -volatile \
     -columns {
       Field time       -label "Time" -orderby time -mixin ::template::CustomField
       AnchorField user -label "Userid" -orderby user
@@ -101,7 +101,7 @@
 	      html::t -disableOutputEscaping "»\n"
 	      html::a -href "/request-monitor" {html::t "XOTcl Request Monitor"}
 	      html::t -disableOutputEscaping "»\n"
-	      html::t [my set context]
+	      html::t ${:context}
 	      html::div -style "clear:both;"
 	    }
 	    html::div -id status {
@@ -122,7 +122,7 @@
 	  }
 	} ;# end of site header
 	html::div -id "youarehere" {
-	  html::t [my set title]
+	  html::t ${:title}
 	}
 	html::br
 	html::div -id "portal-navigation" {
@@ -163,4 +163,9 @@
 pageMaster set title $title
 pageMaster set context [lindex $context 0]
 
-ns_log notice "render time [time {t1 asHTML -page -master ::pageMaster}]"
\ No newline at end of file
+ns_log notice "render time [time {t1 asHTML -page -master ::pageMaster}]"
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 2
+#    indent-tabs-mode: nil
+# End: