Index: openacs-4/packages/acs-lang/www/admin/locale-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/locale-new.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-lang/www/admin/locale-new.tcl	7 Oct 2002 14:32:48 -0000	1.1
+++ openacs-4/packages/acs-lang/www/admin/locale-new.tcl	21 Oct 2002 11:39:14 -0000	1.2
@@ -1,4 +1,4 @@
-# /packages/gp-lang/www/gpadmin/locale-new.tcl
+# /packages/acs-lang/www/admin/locale-new.tcl
 
 ad_page_contract {
 
@@ -11,18 +11,8 @@
 } -properties {
 }
 
-# Get the users locale
-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 "Creation of Locales"]
 
 form create locale_creation 
@@ -132,5 +122,3 @@
     forward "index?tab=locales"
 
 }
-
-db_release_unused_handles