Index: openacs-4/packages/acs-lang/www/change-locale-include.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/change-locale-include.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-lang/www/change-locale-include.tcl	13 Feb 2003 14:26:17 -0000	1.6
+++ openacs-4/packages/acs-lang/www/change-locale-include.tcl	8 Aug 2003 12:21:28 -0000	1.7
@@ -15,7 +15,7 @@
 
 # Create a list of lists containing the possible locale choiches
 
-set list_of_locales [db_list_of_lists locale_loop { select label, locale from ad_locales }]
+set list_of_locales [db_list_of_lists locale_loop { select label, locale from enabled_locales order by label }]
 set list_of_locales [linsert $list_of_locales 0 [list (default) ""]]
 
 form create locale