Index: openacs-4/packages/acs-subsite/www/user/portrait/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/user/portrait/index.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/www/user/portrait/index.tcl	18 Nov 2002 18:01:15 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/user/portrait/index.tcl	15 Aug 2003 21:18:13 -0000	1.5
@@ -17,9 +17,11 @@
     pretty_date:onevalue
     description:onevalue
     export_edit_vars:onevalue
+    subsite_url:onevalue
 }
    
 set current_user_id [ad_verify_and_get_user_id]
+set subsite_url     [subsite::get_element -element url]
 
 if [empty_string_p $user_id] {
     set user_id $current_user_id
@@ -95,4 +97,4 @@
 set pretty_date [lc_time_fmt $publish_date "%q"]
 set export_edit_vars [export_url_vars user_id return_url]
 
-ad_return_template
\ No newline at end of file
+ad_return_template