Index: openacs-4/packages/acs-subsite/www/pvt/home.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/pvt/home.adp,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/acs-subsite/www/pvt/home.adp	25 Sep 2003 16:31:24 -0000	1.13
+++ openacs-4/packages/acs-subsite/www/pvt/home.adp	30 Sep 2003 10:13:44 -0000	1.14
@@ -15,6 +15,12 @@
   <b>&raquo;</b> <a href="../user/password-update">#acs-subsite.Change_my_Password#</a>
 </p>
 
+<if @change_locale_url@ not nil>
+  <p>
+    <b>&raquo;</b> <a href="@change_locale_url@">Change language</a>
+  </p>
+</if>
+
 <p>
   <b>&raquo;</b> <a href="@community_member_url@">#acs-subsite.lt_What_other_people_see#</a>
 </p>
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.15 -r1.16
--- openacs-4/packages/acs-subsite/www/pvt/home.tcl	19 Sep 2003 15:00:44 -0000	1.15
+++ openacs-4/packages/acs-subsite/www/pvt/home.tcl	30 Sep 2003 10:13:44 -0000	1.16
@@ -44,6 +44,11 @@
 
 set portrait_upload_url [export_vars -base "../user/portrait/upload" { { return_url [ad_return_url] } }]
 
+if { [llength [lang::system::get_locales]] > 1 } { 
+    set change_locale_url [apm_package_url_from_key "acs-lang"]
+}
+
+
 if [ad_parameter SolicitPortraitP "user-info" 0] {
     # we have portraits for some users 
     if ![db_0or1row get_portrait_info "