3 use base qw( Exporter );
7 use HTML::Entities qw( encode_entities );
9 our @EXPORT_OK = qw( mt emt js_mt );
14 return '' if $_[0] eq '';
19 # HTML-escaped version of mt()
21 encode_entities(mt(@_));
24 # Javascript-escaped version of mt()
27 #false laziness w/Mason.pm
28 $s =~ s/(['\\])/\\$1/g;
35 my $locale = $FS::CurrentUser::CurrentUser->option('locale')
36 || FS::Conf->new->config('locale')
39 FS::L10N->get_handle($locale) || die "Unknown locale $locale";