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.7 -r1.8
--- openacs-4/packages/acs-subsite/www/pvt/home.tcl	9 Dec 2002 13:29:00 -0000	1.7
+++ openacs-4/packages/acs-subsite/www/pvt/home.tcl	15 Aug 2003 21:18:12 -0000	1.8
@@ -17,10 +17,15 @@
     export_user_id:onevalue
     ad_url:onevalue
     member_link:onevalue
+    subsite_url:onevalue
+    pvt_home_url:onevalue
 }
 
 set user_id [ad_verify_and_get_user_id]
 
+set subsite_url  [subsite::get_element -element url]
+set pvt_home_url [ad_pvt_home]
+
 set user_exists_p [db_0or1row pvt_home_user_info {
     select first_names, last_name, email, url,
     nvl(screen_name,'&lt none set up &gt') as screen_name
@@ -84,11 +89,7 @@
 
 set header [ad_header "$full_name's workspace at $system_name"]
 
-if {[ad_conn package_url] == "/"} {
-  set context [list "[ad_pvt_home_name]"]
-} else {
-  set context [list "Home"]
-}
+set context [list "[ad_pvt_home_name]"]
 
 set export_user_id [export_url_vars user_id]
 set ad_url [ad_url]