Index: openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/Attic/xowiki-portlet-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	2 Dec 2006 14:09:35 -0000	1.3
+++ openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	8 Dec 2006 09:59:51 -0000	1.4
@@ -394,7 +394,7 @@
     append sql "order by time desc $limit_clause"
 
     set count 0
-    set output "<TABLE>"
+    set output ""
     db_foreach get_visitors $sql {
       if {[info exists seen($user_id)]} continue
       set seen($user_id) $time
@@ -414,7 +414,7 @@
       }
     }
     if {$output ne ""} {set output "<TABLE>$output</TABLE>\n"}
-
-    return "<DIV id='presence'><H1>[array size seen] Users $what</H1><br>$output</DIV>"
+    set users [expr {$count == 0 ? "No users" : "$count users"}]
+    return "<DIV id='presence'><H1>$users $what</H1>$output</DIV>"
   }
 }