2 use base qw( Exporter );
7 use HTML::Entities qw( encode_entities );
9 our @EXPORT_OK = qw( mt emt js_mt );
14 #ask FS::UID to run this stuff for us later
15 FS::UID->install_callback( sub {
16 my $conf = new FS::Conf;
17 $locale = $conf->config('locale');
21 return '' if $_[0] eq '';
26 # HTML-escaped version of mt()
28 encode_entities(mt(@_));
31 # Javascript-escaped version of mt()
34 #false laziness w/Mason.pm
35 $s =~ s/(['\\])/\\$1/g;
42 my $locale = $FS::CurrentUser::CurrentUser->locale
46 FS::L10N->get_handle($locale) || die "Unknown locale $locale";