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.2 -r1.3
--- openacs-4/packages/xotcl-request-monitor/www/whos-online-today.tcl	29 Dec 2008 14:12:41 -0000	1.2
+++ openacs-4/packages/xotcl-request-monitor/www/whos-online-today.tcl	29 Dec 2008 14:20:08 -0000	1.3
@@ -42,6 +42,8 @@
 if {!$all} {set elements [concat $ip $auth]} {set elements $auth}
 set summary "We noticed in [expr {[llength $ip]+[llength $auth]}] users in total, containing [llength $auth] authenticated users"
 
+set now_ansi  [clock_to_ansi [clock seconds]]
+
 foreach element $elements {
   foreach {user_id timestamp} $element break
   if {[string is integer $user_id]} {
@@ -57,7 +59,10 @@
   lappend users [list $user_label \
 		     $user_url \
 		     $timestamp \
-		     [clock format $timestamp] \
+                     [util::age_pretty \
+                          -timestamp_ansi [clock_to_ansi $timestamp] \
+                          -sysdate_ansi $now_ansi \
+                          -mode_3_fmt "%d %b %Y, at %X"] \
 		    ]
 }