Index: openacs-4/packages/xotcl-request-monitor/www/stat-details.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/stat-details.tcl,v
diff -u -r1.13.2.4 -r1.13.2.5
--- openacs-4/packages/xotcl-request-monitor/www/stat-details.tcl	25 Jan 2020 14:15:14 -0000	1.13.2.4
+++ openacs-4/packages/xotcl-request-monitor/www/stat-details.tcl	25 Mar 2022 19:49:55 -0000	1.13.2.5
@@ -141,18 +141,6 @@
 set url_apps  [export_vars -base [ad_conn url] {all {with_apps $not_with_apps} with_param}]
 set url_param [export_vars -base [ad_conn url] {all with_apps {with_param $not_with_param}}]
 
-switch -glob $orderby {
-  *,desc {set order -decreasing}
-  *,asc  {set order -increasing}
-}
-switch -glob $orderby {
-  url,*       {set index 0; set type -dictionary}
-  totaltime,* {set index 1; set type -integer}
-  cnt,*       {set index 2; set type -integer}
-  avg,*       {set index 3; set type -real}
-}
-
-
 TableWidget create t1 -volatile \
     -actions [subst {
       Action new -label "$show_all_label($all)" -url $url_all -tooltip "show_all_tooltip($all)"
@@ -196,6 +184,12 @@
                 -total [format %.2f%% [expr {[lindex $l 1]*100.0/$total}]]
   }
 
+lassign [split $orderby ,] att order
+t1 orderby \
+    -order [ad_decode $order desc decreasing asc increasing increasing] \
+    -type [ad_decode $att totaltime integer cnt integer avg real dictionary] \
+    $att
+
 set t1 [t1 asHTML]
 
 append user_string "<b>Grand Total Avg Response time: </b>" \