Index: openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl,v diff -u -r1.43.2.2 -r1.43.2.3 --- openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl 20 Feb 2007 16:57:48 -0000 1.43.2.2 +++ openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl 21 Feb 2007 00:00:03 -0000 1.43.2.3 @@ -366,9 +366,8 @@ @param locale Name of a locale, as language_COUNTRY using ISO 639 and ISO 3166 @return IANA MIME character set name } { - # LARS: - # This should probably be cached - return [db_string charset_for_locale {}] + # DRB: cache this now that ad_conn tracks it + return [db_string -cache_key ad_lang_mime_charset_$locale charset_for_locale {}] } ad_proc -private lang::util::default_locale_from_lang_not_cached {