Index: openacs-4/packages/acs-lang/www/admin/locales.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/Attic/locales.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-lang/www/admin/locales.tcl	7 Oct 2002 14:32:48 -0000	1.1
+++ openacs-4/packages/acs-lang/www/admin/locales.tcl	21 Oct 2002 11:39:14 -0000	1.2
@@ -9,18 +9,8 @@
 } -properties {
 }
 
-# Check the locale from the user
-if { [exists_and_not_null locales] } {
-    set locale_user $locales
-} else {
-    set locale_user [ad_locale_locale_from_lang [ad_locale user language]]
-}
+set locale_user [ad_conn locale]
 
-#  AS - doesn't work
-#  set encoding_charset [ad_locale charset $locale_user]
-#  ns_setformencoding $encoding_charset
-#  ns_set put [ns_conn outputheaders] "content-type" "text/html; charset=$encoding_charset"
-
 set context_bar [ad_context_bar "Locales Administration"]
 
 db_multirow -extend { escaped_locale } locales select_locales {
@@ -32,5 +22,3 @@
 } {
     set escaped_locale [ns_urlencode $locale]
 }
-
-db_release_unused_handles