package FS::Msgcat;
use strict;
-use vars qw( @ISA @EXPORT_OK $conf $def_locale $debug );
+use vars qw( @ISA @EXPORT_OK $conf $def_locale $debug @translate_auto_insert );
use Exporter;
use FS::UID;
#use FS::Record qw( qsearchs ); # wtf? won't import...
die $@ if $@;
$conf = new FS::Conf;
$def_locale = $conf->config('locale') || 'en_US';
- $debug = $conf->exists('show-msgcat-codes')
+ $debug = $conf->exists('show-msgcat-codes');
+ @translate_auto_insert = $conf->config('translate-auto-insert');
});
=head1 NAME
return '' unless defined($msgcode) && length($msgcode) > 0;
my $locale = (@_ && shift)
- || $FS::CurrentUser::CurrentUser->option('locale')
+ || $FS::CurrentUser::CurrentUser->locale
|| $def_locale;
return $cache{$locale}->{$msgcode} if exists $cache{$locale}->{$msgcode};
unless $locale eq 'en_US';
$cache{$locale}->{$msgcode} = $msgcode;
- my @translate_auto_insert = $conf->config('translate-auto-insert');
if ( $locale ne 'en_US' && grep { $_ eq $locale } @translate_auto_insert ) {
# :(