Index: openacs-4/packages/xotcl-request-monitor/www/whos-online-today.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/whos-online-today.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/xotcl-request-monitor/www/whos-online-today.adp	29 Dec 2008 13:12:28 -0000	1.1
+++ openacs-4/packages/xotcl-request-monitor/www/whos-online-today.adp	29 Dec 2008 14:12:41 -0000	1.2
@@ -2,6 +2,7 @@
 <property name="title">@title;noquote@</property>
 <property name="context">@context;noquote@</property>
 
+<p>@summary@</p>
 <div style="font-size: 90%">
 @t1;noquote@
 </div>
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