X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fpref%2Fpref.html;h=93c71996c7ef94cc08c9e65661263d7f183457e3;hb=dd21870b44d5557e9bff786c0476012c151f035a;hp=c6bcf6f666d585b12b56c9cc95eaa6eeb34a8d88;hpb=c22d84e565ab16db142395dce2e8621624eff140;p=freeside.git

diff --git a/httemplate/pref/pref.html b/httemplate/pref/pref.html
index c6bcf6f66..93c71996c 100644
--- a/httemplate/pref/pref.html
+++ b/httemplate/pref/pref.html
@@ -36,7 +36,7 @@ Interface
     <TH ALIGN="right">Locale: </TH>
     <TD COLSPAN=2>
       <SELECT NAME="locale">
-%       foreach my $locale ( FS::Locales->locales ) {
+%       foreach my $locale ( @locales ) {
 %         my %info = FS::Locales->locale_info($locale);
 %         my $selected = ($locale eq $curuser->option('locale'))
 %                          ? 'SELECTED' : '';
@@ -287,4 +287,14 @@ my $menu_position = $1;
   =~ /^([,\w\@.\-]*)$/ or die "illegal email_address";  #too late
 my $email_address = $1;
 
+my $conf = new FS::Conf;
+
+my @locales = $conf->config('available-locales');
+
+if ( ! @locales ) {
+
+	@locales = FS::Locales->locales ;
+
+}
+
 </%init>