Index: openacs-4/packages/acs-subsite/www/pvt/home.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/pvt/home.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/acs-subsite/www/pvt/home.tcl	30 Sep 2003 10:13:44 -0000	1.16
+++ openacs-4/packages/acs-subsite/www/pvt/home.tcl	3 Oct 2003 10:14:31 -0000	1.17
@@ -40,6 +40,9 @@
 
 set community_member_url [acs_community_member_url -user_id $user_id]
 
+set notifications_url [lindex [site_node::get_children -node_id [subsite::get_element -element node_id] -package_key "notifications"] 0]
+
+
 set system_name [ad_system_name]
 
 set portrait_upload_url [export_vars -base "../user/portrait/upload" { { return_url [ad_return_url] } }]
@@ -49,6 +52,7 @@
 }
 
 
+
 if [ad_parameter SolicitPortraitP "user-info" 0] {
     # we have portraits for some users 
     if ![db_0or1row get_portrait_info "
@@ -72,3 +76,8 @@
     set portrait_state "none"
 }
 
+
+set whos_online_url "[subsite::get_element -element url]shared/whos-online"
+set make_visible_url "[subsite::get_element -element url]shared/make-visible"
+set make_invisible_url "[subsite::get_element -element url]shared/make-invisible"
+set invisible_p [whos_online::user_invisible_p [ad_conn untrusted_user_id]]