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 -r1.6 -r1.7
--- openacs-4/packages/acs-lang/tcl/locale-procs.tcl	7 Nov 2002 18:01:11 -0000	1.6
+++ openacs-4/packages/acs-lang/tcl/locale-procs.tcl	12 Nov 2002 15:33:15 -0000	1.7
@@ -269,7 +269,17 @@
     } {
         return [string range [locale -package_id $package_id -site_wide=$site_wide_p] 0 1]
     }
+
+    ad_proc -public charset { 
+    } {
+        Returns the MIME charset name corresponding to the current connection's locale.
     
+        @author        Lars Pind (lars@pinds.com)
+        @param locale  Name of a locale, as language_COUNTRY using ISO 639 and ISO 3166
+        @return        IANA MIME character set name
+    } {
+        return [lang::util::charset_for_locale [lang::conn::locale]]
+    }
 }