diff options
author | ivan <ivan> | 2011-05-14 00:30:43 +0000 |
---|---|---|
committer | ivan <ivan> | 2011-05-14 00:30:43 +0000 |
commit | be40a9fa3750374b32f2aa31e8807433c05d7817 (patch) | |
tree | 68f4ba6b9a68671bb0060bb586e0484da65825c3 /FS/FS/Maketext.pm | |
parent | cd34706f94273cf381952f57c5fcb7d6910fbae0 (diff) |
i18n, RT#12515
Diffstat (limited to 'FS/FS/Maketext.pm')
-rw-r--r-- | FS/FS/Maketext.pm | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/FS/FS/Maketext.pm b/FS/FS/Maketext.pm new file mode 100644 index 0000000..319fb1d --- /dev/null +++ b/FS/FS/Maketext.pm @@ -0,0 +1,27 @@ +package FS::Maketext; + +use base qw( Exporter ); +use FS::CurrentUser; +use FS::Conf; +use FS::L10N; + +our @EXPORT_OK = qw( mt ); + +our $lh; + +sub mt { + $lh ||= lh(); + $lh->maketext(@_); +} + +sub lh { + my $locale = $FS::CurrentUser::CurrentUser->option('locale') + || FS::Conf->new->config('locale') + || 'en_US'; + $locale =~ s/_/-/g; + FS::L10N->get_handle($locale) || die "Unknown locale $locale"; +} + +# XXX pod me + +1; |