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.1 -r1.2
--- openacs-4/packages/xotcl-request-monitor/www/whos-online-today.tcl	29 Dec 2008 13:12:29 -0000	1.1
+++ openacs-4/packages/xotcl-request-monitor/www/whos-online-today.tcl	29 Dec 2008 14:12:41 -0000	1.2
@@ -39,7 +39,8 @@
 
 set users [list]
 foreach {ip auth} [throttle users users_per_day] break
-if {$all} {set elements [concat $ip $auth]} {set elements $auth}
+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"
 
 foreach element $elements {
   foreach {user_id timestamp} $element break