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.17 -r1.18
--- openacs-4/packages/acs-subsite/www/pvt/home.tcl	3 Oct 2003 10:14:31 -0000	1.17
+++ openacs-4/packages/acs-subsite/www/pvt/home.tcl	22 Mar 2005 00:58:41 -0000	1.18
@@ -17,7 +17,6 @@
     export_user_id:onevalue
     ad_url:onevalue
     member_link:onevalue
-    subsite_url:onevalue
     pvt_home_url:onevalue
 }
 
@@ -32,17 +31,16 @@
 
 set pvt_home_url [ad_pvt_home]
 
-set subsite_url [subsite::get_element -element url]
-
 set context [list $page_title]
 
+set fragments [callback user::workspace -user_id $user_id]
+
 set ad_url [ad_url]
 
 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] } }]