Index: openacs-4/packages/acs-lang/tcl/locale-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/locale-procs.tcl,v diff -u -r1.32 -r1.33 --- openacs-4/packages/acs-lang/tcl/locale-procs.tcl 23 Jul 2005 16:55:05 -0000 1.32 +++ openacs-4/packages/acs-lang/tcl/locale-procs.tcl 4 Oct 2005 02:37:26 -0000 1.33 @@ -353,14 +353,17 @@ ad_proc -public lang::user::set_locale { {-package_id ""} + {-user_id ""} locale } { Set user locale setting for a given package instance. @param package_id The package for which you want to set the locale setting, if you want to set it for a specific package, as opposed to a site-wide setting. @param locale The new locale that you want to use as your system locale. } { - set user_id [ad_conn user_id] + if { [empty_string_p $user_id] } { + set user_id [ad_conn user_id] + } if { $user_id == 0 } { # Not logged in, use a cookie-based client locale