FS/FS/Maketext.pm

   1 package FS::Maketext;
   2
   3 use base qw( Exporter );
   4 use FS::CurrentUser;
   5 use FS::Conf;
   6 use FS::L10N;
   7
   8 our @EXPORT_OK = qw( mt );
   9
  10 our $lh;
  11
  12 sub mt {
  13   $lh ||= lh();
  14   $lh->maketext(@_);
  15 }
  16
  17 sub lh {
  18   my $locale =  $FS::CurrentUser::CurrentUser->option('locale')
  19              || FS::Conf->new->config('locale')
  20              || 'en_US';
  21   $locale =~ s/_/-/g;
  22   FS::L10N->get_handle($locale) || die "Unknown locale $locale";
  23 }
  24
  25 # XXX pod me
  26
  27 1;