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 -r1.43.2.1
--- openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	13 Jul 2006 23:01:40 -0000	1.43
+++ openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	20 Feb 2007 00:41:21 -0000	1.43.2.1
@@ -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 {