From fca32110d9fe0b257353e627d1f66706d719d59f Mon Sep 17 00:00:00 2001
From: Fernando Kiernan <fkiernan@id.net.ar>
Date: Sat, 18 Jan 2014 17:16:43 -0300
Subject: [PATCH] - Limit languages on preferences to only those
 available-locales.

---
 httemplate/pref/pref.html | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

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>
-- 
2.11.0