X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FLocales.pm;h=351f4787549a1b479861f056ad125ed5219f7904;hb=3c54c844c665ed108c7892a154fd3972fab1f3e5;hp=607f2be2de89c325c8e2afb939e879081720bf38;hpb=5fdd19665fb7c0ad425a99d3dbf9ad7e27fbf44a;p=freeside.git

diff --git a/FS/FS/Locales.pm b/FS/FS/Locales.pm
index 607f2be2d..351f47875 100644
--- a/FS/FS/Locales.pm
+++ b/FS/FS/Locales.pm
@@ -28,8 +28,11 @@ Returns a list of the available locales.
 =cut
 
 tie our %locales, 'Tie::IxHash',
-  'en_US', { name => 'English', country => 'United States', },
-  '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', },
+  'iw_IL', { name => 'Hebrew',      country => 'Israel', rtl=>1, },
 ;
 
 sub locales {
@@ -47,6 +50,17 @@ sub locale_info {
   %{ $locales{$locale} };
 }
 
+=item description LOCALE
+
+Returns "Language (Country)" for a locale.
+
+=cut
+
+sub description {
+  my($class, $locale) = @_;
+  $locales{$locale}->{'name'} . ' (' . $locales{$locale}->{'country'} . ')';
+}
+
 =back
 
 =head1 BUGS