Index: openacs-4/packages/acs-subsite/www/shared/whos-online.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/whos-online.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/www/shared/whos-online.tcl	6 Sep 2002 21:50:11 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/shared/whos-online.tcl	15 Aug 2003 21:18:13 -0000	1.5
@@ -9,8 +9,10 @@
     chat_system_name:onevalue
     connected_user_id:onevalue
     users:multirow
+    subsite_url:onevalue
 }
 
+set subsite_url       [subsite::get_element -element url]
 set connected_user_id [ad_verify_and_get_user_id]
 
 db_multirow users grab_users "select user_id, first_names, last_name, email