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 -N -r1.40 -r1.41
--- openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	21 Jun 2005 10:47:11 -0000	1.40
+++ openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	28 Jul 2005 12:51:16 -0000	1.41
@@ -801,3 +801,17 @@
     return $list_output
 }
 
+ad_proc -public lang::util::get_locale_options {
+} {
+    Return a list of locales know to the system
+} {
+    return [util_memoize lang::util::get_locale_options_not_cached]
+}
+
+ad_proc -private lang::util::get_locale_options_not_cached {} {
+    Return all enabled locales in the system in a format suitable for the options argument of a form.
+
+    @author Lars Pind
+} {
+    return [db_list_of_lists select_locales {}]
+}