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 {}]
+}
Index: openacs-4/packages/acs-lang/tcl/lang-util-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-util-procs.xql,v
diff -u -r1.4 -r1.4.2.1
--- openacs-4/packages/acs-lang/tcl/lang-util-procs.xql	26 Feb 2005 16:00:09 -0000	1.4
+++ openacs-4/packages/acs-lang/tcl/lang-util-procs.xql	7 Sep 2005 16:34:17 -0000	1.4.2.1
@@ -33,4 +33,12 @@
       </querytext>
    </fullquery>
 
+   <fullquery name="lang::util::get_locale_options_not_cached.select_locales">
+      <querytext>
+       select label, locale
+        from   ad_locales
+      </querytext>
+   </fullquery>
+
+
 </queryset>