Index: openacs-4/www/site-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/site-master.tcl,v
diff -u -r1.9 -r1.9.2.1
--- openacs-4/www/site-master.tcl	23 Oct 2003 15:52:58 -0000	1.9
+++ openacs-4/www/site-master.tcl	24 Nov 2003 17:33:10 -0000	1.9.2.1
@@ -46,8 +46,9 @@
     set sw_admin_p [acs_user::site_wide_admin_p -user_id [ad_conn untrusted_user_id]]
 
     if { $sw_admin_p } {
-            set admin_url "/acs-admin/"
-            set devhome_url "/acs-admin/developer"
+        set admin_url "/acs-admin/"
+        set devhome_url "/acs-admin/developer"
+        set locale_admin_url "/acs-lang/admin"
     } else {
         set subsite_admin_p [permission::permission_p \
                                  -object_id [subsite::get_element -element object_id] \
@@ -76,5 +77,14 @@
     set context_bar {}
 }
 
+# change locale
+set num_of_locales [llength [lang::system::get_locales]]
+if { $num_of_locales > 1 } {
+    set change_locale_url \
+        "/acs-lang/?[export_vars { { package_id "[ad_conn package_id]" } }]"
+}
+
+
+
 # Curriculum bar
 set curriculum_bar_p [llength [site_node::get_children -all -filters { package_key "curriculum" } -node_id $subsite_node_id]]