diff options
Diffstat (limited to 'FS/FS/Locales.pm')
-rw-r--r-- | FS/FS/Locales.pm | 18 |
1 files changed, 16 insertions, 2 deletions
diff --git a/FS/FS/Locales.pm b/FS/FS/Locales.pm index 607f2be..351f478 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 |