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.17 -r1.18
--- openacs-4/packages/acs-lang/tcl/locale-procs.tcl	28 Aug 2003 08:57:21 -0000	1.17
+++ openacs-4/packages/acs-lang/tcl/locale-procs.tcl	18 Sep 2003 17:14:38 -0000	1.18
@@ -218,7 +218,7 @@
     Get the user's preferred package level locale for a package
     given by its package id.
 } {
-    set user_id [ad_conn user_id]
+    set user_id [ad_conn untrusted_user_id]
 
     # If package-level locales are turned off, or the user isn't logged in, return the empty string
     if { ![lang::system::use_package_level_locales_p] || $user_id == 0 } {
@@ -241,10 +241,11 @@
 } {
     Get the user's preferred site wide locale.
 } {
-    if { [ad_conn user_id] == 0 } {
+    if { [ad_conn untrusted_user_id] == 0 } {
+        # TODO: Make this a cookie
         return [ad_get_client_property -cache t "acs-lang" "user_locale"]
     } else {
-        set user_id [ad_conn user_id]
+        set user_id [ad_conn untrusted_user_id]
         return [db_string get_user_site_wide_locale {} -default ""]
     }
 }