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.36.2.1 -r1.36.2.2
--- openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	25 Aug 2005 14:28:36 -0000	1.36.2.1
+++ openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	7 Sep 2005 16:34:17 -0000	1.36.2.2
@@ -807,3 +807,18 @@
     }
     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 {}]
+}