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 -N -r1.18 -r1.19
--- openacs-4/packages/acs-lang/tcl/locale-procs.tcl	18 Sep 2003 17:14:38 -0000	1.18
+++ openacs-4/packages/acs-lang/tcl/locale-procs.tcl	10 Oct 2003 13:02:33 -0000	1.19
@@ -242,8 +242,7 @@
     Get the user's preferred site wide locale.
 } {
     if { [ad_conn untrusted_user_id] == 0 } {
-        # TODO: Make this a cookie
-        return [ad_get_client_property -cache t "acs-lang" "user_locale"]
+	return [ad_get_cookie "ad_locale"]
     } else {
         set user_id [ad_conn untrusted_user_id]
         return [db_string get_user_site_wide_locale {} -default ""]
@@ -288,8 +287,8 @@
     set user_id [ad_conn user_id]
 
     if { $user_id == 0 } {
-        # Not logged in, use a session-based client property
-        ad_set_client_property -persistent t "acs-lang" "user_locale" $locale
+        # Not logged in, use a cookie-based client locale
+	ad_set_cookie -expire never "ad_locale" $locale
         return
     }