Index: openacs-4/packages/acs-lang/www/change-locale-include.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/change-locale-include.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-lang/www/change-locale-include.tcl	18 Aug 2003 10:32:53 -0000	1.8
+++ openacs-4/packages/acs-lang/www/change-locale-include.tcl	23 Sep 2003 10:26:28 -0000	1.9
@@ -13,6 +13,8 @@
     set return_url [ns_set iget [ns_conn headers] referer]
 }
 
+set use_timezone_p [expr [lang::system::timezone_support_p] && [ad_conn user_id]]
+
 #
 # LARS:
 # I'm thinking the UI here needs to be different.
@@ -63,7 +65,7 @@
             -options $list_of_locales
 }
 
-if { [lang::system::timezone_support_p] } {
+if { $use_timezone_p } {
     set timezone_options [db_list_of_lists all_timezones {}]
 
     element create locale timezone -datatype text -widget select -optional \
@@ -78,7 +80,7 @@
     element set_properties locale site_wide_locale -value [lang::user::site_wide_locale]
     element set_properties locale return_url_info -value $return_url
     element set_properties locale package_id_info -value $package_id
-    if { [lang::system::timezone_support_p] } {
+    if { $use_timezone_p } {
         element set_properties locale timezone -value [lang::user::timezone]
     }
 }
@@ -91,7 +93,7 @@
         lang::user::set_locale -package_id $package_id $package_level_locale
     }
     
-    if { [lang::system::timezone_support_p] } {
+    if { $use_timezone_p } {
         lang::user::set_timezone [element get_value locale timezone]
     }