From 8e67cf9e85e6fe18f501f892db2abd37725bb0bd Mon Sep 17 00:00:00 2001
From: Fernando Kiernan <fkiernan@id.net.ar>
Date: Fri, 27 Dec 2013 09:18:26 -0300
Subject: - Add es_AR Locale

---
 FS/FS/L10N/es_ar.pm | 6 ++++++
 FS/FS/Locales.pm    | 1 +
 2 files changed, 7 insertions(+)
 create mode 100644 FS/FS/L10N/es_ar.pm

diff --git a/FS/FS/L10N/es_ar.pm b/FS/FS/L10N/es_ar.pm
new file mode 100644
index 000000000..31893280b
--- /dev/null
+++ b/FS/FS/L10N/es_ar.pm
@@ -0,0 +1,6 @@
+package FS::L10N::es_ar;
+use base qw(FS::L10N::DBI);
+
+our %Lexicon = ();
+
+1;
diff --git a/FS/FS/Locales.pm b/FS/FS/Locales.pm
index 23a95caea..2ba822a92 100644
--- a/FS/FS/Locales.pm
+++ b/FS/FS/Locales.pm
@@ -41,6 +41,7 @@ tie our %locales, 'Tie::IxHash',
   'fr_HT', { name => 'French',         country => 'Haiti', },
   'ht_HT', { name => 'Haitian Creole', country => 'Haiti', },
   'iw_IL', { name => 'Hebrew',         country => 'Israel', rtl=>1, },
+  'es_AR', { name => 'Spanish',        country => 'Argentina', },
 ;
 
 $_->{label} = $_->{name} . ' (' . $_->{country} . ')'
-- 
cgit v1.2.1


From bab5583acee02f55e13a026b280f7528aa0c8d01 Mon Sep 17 00:00:00 2001
From: Fernando Kiernan <fkiernan@imagenesdigitales.com.ar>
Date: Tue, 5 May 2015 21:14:49 -0300
Subject: - Add ARS (Argentine Peso) as supported system currency.

---
 FS/FS/Conf.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/FS/FS/Conf.pm b/FS/FS/Conf.pm
index a8ececd02..90bb3b143 100644
--- a/FS/FS/Conf.pm
+++ b/FS/FS/Conf.pm
@@ -971,7 +971,7 @@ my $validate_email = sub { $_[0] =~
     'section'     => 'billing',
     'description' => 'Currency parameter for Business::OnlinePayment transactions.',
     'type'        => 'select',
-    'select_enum' => [ '', qw( USD AUD CAD DKK EUR GBP ILS JPY NZD ) ],
+    'select_enum' => [ '', qw( USD AUD CAD DKK EUR GBP ILS JPY NZD ARS ) ],
   },
 
   {
@@ -979,7 +979,7 @@ my $validate_email = sub { $_[0] =~
     'section'     => 'billing',
     'description' => 'Main accounting currency',
     'type'        => 'select',
-    'select_enum' => [ '', qw( USD AUD CAD DKK EUR GBP ILS JPY NZD XAF ) ],
+    'select_enum' => [ '', qw( USD AUD CAD DKK EUR GBP ILS JPY NZD XAF ARS ) ],
   },
 
   {
-- 
cgit v1.2.1


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: - 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>
-- 
cgit v1.2.1


From 31e1d1d72a371b856f4ee3e50252bf596bb8a2d1 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Thu, 18 Aug 2016 14:23:36 -0700
Subject: es_ar ISA es_es

---
 FS/FS/L10N/es_ar.pm | 2 +-
 FS/FS/Locales.pm    | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/FS/FS/L10N/es_ar.pm b/FS/FS/L10N/es_ar.pm
index 31893280b..0b50ca05a 100644
--- a/FS/FS/L10N/es_ar.pm
+++ b/FS/FS/L10N/es_ar.pm
@@ -1,5 +1,5 @@
 package FS::L10N::es_ar;
-use base qw(FS::L10N::DBI);
+use base qw(FS::L10N::es_es);
 
 our %Lexicon = ();
 
diff --git a/FS/FS/Locales.pm b/FS/FS/Locales.pm
index 2ba822a92..d1f3eed22 100644
--- a/FS/FS/Locales.pm
+++ b/FS/FS/Locales.pm
@@ -32,6 +32,7 @@ tie our %locales, 'Tie::IxHash',
   'en_AU', { name => 'English',        country => 'Australia', },
   'en_CA', { name => 'English',        country => 'Canada', },
   'es_ES', { name => 'Spanish',        country => 'Spain', },
+  'es_AR', { name => 'Spanish',        country => 'Argentina', },
   'es_CU', { name => 'Spanish',        country => 'Cuba', },
   'es_MX', { name => 'Spanish',        country => 'Mexico', },
   'es_PA', { name => 'Spanish',        country => 'Panama', },
@@ -41,7 +42,6 @@ tie our %locales, 'Tie::IxHash',
   'fr_HT', { name => 'French',         country => 'Haiti', },
   'ht_HT', { name => 'Haitian Creole', country => 'Haiti', },
   'iw_IL', { name => 'Hebrew',         country => 'Israel', rtl=>1, },
-  'es_AR', { name => 'Spanish',        country => 'Argentina', },
 ;
 
 $_->{label} = $_->{name} . ' (' . $_->{country} . ')'
-- 
cgit v1.2.1