From: Fernando Kiernan <fkiernan@id.net.ar>
Date: Sat, 18 Jan 2014 20:16:43 +0000 (-0300)
Subject: - Limit languages on preferences to only those available-locales.
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=fca32110d9fe0b257353e627d1f66706d719d59f

- Limit languages on preferences to only those available-locales.
---

diff --git a/httemplate/pref/pref.html b/httemplate/pref/pref.html
index 50d6e8d23..48ec1296e 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' : '';
@@ -282,4 +282,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>