From 96e68d6b1cbd2a9f28bbea9a810b4404735c071b Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 14 Dec 2011 23:20:19 +0000
Subject: [PATCH] add fr_HT and ht_HT locales for french (haiti) and haitian
 creole, RT#15269

---
 FS/FS/L10N/fr_ht.pm |  4 ++++
 FS/FS/L10N/ht_ht.pm |  4 ++++
 FS/FS/Locales.pm    | 12 +++++++-----
 3 files changed, 15 insertions(+), 5 deletions(-)
 create mode 100644 FS/FS/L10N/fr_ht.pm
 create mode 100644 FS/FS/L10N/ht_ht.pm

diff --git a/FS/FS/L10N/fr_ht.pm b/FS/FS/L10N/fr_ht.pm
new file mode 100644
index 000000000..0363ac449
--- /dev/null
+++ b/FS/FS/L10N/fr_ht.pm
@@ -0,0 +1,4 @@
+package FS::L10N::fr_ht;
+use base qw(FS::L10N::fr_fr);
+
+1;
diff --git a/FS/FS/L10N/ht_ht.pm b/FS/FS/L10N/ht_ht.pm
new file mode 100644
index 000000000..6091bed36
--- /dev/null
+++ b/FS/FS/L10N/ht_ht.pm
@@ -0,0 +1,4 @@
+package FS::L10N::ht_ht;
+use base qw(FS::L10N::DBI);
+
+1;
diff --git a/FS/FS/Locales.pm b/FS/FS/Locales.pm
index 351f47875..692bb935f 100644
--- a/FS/FS/Locales.pm
+++ b/FS/FS/Locales.pm
@@ -28,11 +28,13 @@ Returns a list of the available locales.
 =cut
 
 tie our %locales, 'Tie::IxHash',
-  'en_CA', { name => 'English',     country => 'Canada', },
-  'en_US', { name => 'English',     country => 'United States', },
-  'fr_CA', { name => 'French',      country => 'Canada', },
-  'fr_FR', { name => 'French',      country => 'France', },
-  'iw_IL', { name => 'Hebrew',      country => 'Israel', rtl=>1, },
+  'en_CA', { name => 'English',        country => 'Canada', },
+  'en_US', { name => 'English',        country => 'United States', },
+  'fr_CA', { name => 'French',         country => 'Canada', },
+  'fr_FR', { name => 'French',         country => 'France', },
+  'fr_HT', { name => 'French',         country => 'Haiti', },
+  'ht_HT', { name => 'Haitian Creole', country => 'Haiti', },
+  'iw_IL', { name => 'Hebrew',         country => 'Israel', rtl=>1, },
 ;
 
 sub locales {
-- 
2.11.0