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 -N -r1.9.2.2 -r1.9.2.3
--- openacs-4/packages/xotcl-request-monitor/www/whos-online-today.tcl	25 Jan 2020 14:04:02 -0000	1.9.2.2
+++ openacs-4/packages/xotcl-request-monitor/www/whos-online-today.tcl	25 Jan 2020 14:04:39 -0000	1.9.2.3
@@ -32,9 +32,9 @@
     -columns [subst {
       AnchorField name  -label "User" -orderby name
       Field date -label "Last Activity" -html { align right } \
-	  -orderby date
+          -orderby date
       }] \
-    -no_data "no registered online today" 
+    -no_data "no registered online today"
 
 
 set users [list]
@@ -54,11 +54,11 @@
     # it was an IP address
     set user_label $user_id
     set user_url ""
-  } 
+  }
 
   lappend users [list $user_label \
-		     $user_url \
-		     $timestamp \
+                     $user_url \
+                     $timestamp \
                      [::xowiki::utility pretty_age \
                           -timestamp [clock scan [lc_clock_to_ansi $timestamp]]] \
                     ]
@@ -67,17 +67,17 @@
 switch -glob $orderby {
   *,desc {set order -decreasing}
   *,asc  {set order -increasing}
-} 
+}
 switch -glob $orderby {
   name,*         {set index 0; set type -dictionary}
   date,*         {set index 2; set type -integer}
 }
 
 foreach e [lsort $type $order -index $index $users] {
   if {$admin} {
-    t1 add 	-name         [lindex $e 0] \
+    t1 add      -name         [lindex $e 0] \
                 -name.href    [lindex $e 1] \
-		-date         [lindex $e 3] \
+                -date         [lindex $e 3] \
   }
 }