X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2FLocales.pm;h=692bb935f5574e4c1d589cc91b85d442a2a3ed0c;hp=351f4787549a1b479861f056ad125ed5219f7904;hb=2f26453a616c49d11ae661d6c00502db7fd7bc53;hpb=c16afe1ce2cfcd4a07a0265c890d35879542658a

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 {