Index: openacs-4/www/site-master.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/site-master.adp,v
diff -u -r1.12 -r1.13
--- openacs-4/www/site-master.adp	7 Jan 2004 00:17:32 -0000	1.12
+++ openacs-4/www/site-master.adp	8 Jan 2004 08:43:22 -0000	1.13
@@ -40,6 +40,10 @@
       </else>
     </td>
 
+    <td align="center" class="button-bar">
+      <a href="@whos_online_url@">@num_users_online@ <if @num_users_online@ eq 1>user</if><else>users</else> online</a>
+    </td>
+
     <td align="right" style="padding-right: 8px;" class="button-bar">
       <if @admin_url@ not nil>
         <a href="@admin_url@" title="#acs-subsite.Site_wide_administration#">#acs-subsite.Admin#</a>
Index: openacs-4/www/site-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/site-master.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/www/site-master.tcl	7 Jan 2004 00:17:32 -0000	1.12
+++ openacs-4/www/site-master.tcl	8 Jan 2004 08:43:22 -0000	1.13
@@ -96,3 +96,9 @@
 
 # Curriculum bar
 set curriculum_bar_p [llength [site_node::get_children -all -filters { package_key "curriculum" } -node_id $subsite_node_id]]
+
+
+set num_users_online [lc_numeric [whos_online::num_users]]
+
+set whos_online_url "[subsite::get_element -element url]shared/whos-online"
+