3 use base qw( Exporter );
7 use HTML::Entities qw( encode_entities );
9 our @EXPORT_OK = qw( mt emt js_mt );
18 # HTML-escaped version of mt()
20 encode_entities(mt(@_));
23 # Javascript-escaped version of mt()
26 #false laziness w/Mason.pm
27 $s =~ s/(['\\])/\\$1/g;
34 my $locale = $FS::CurrentUser::CurrentUser->option('locale')
35 || FS::Conf->new->config('locale')
38 FS::L10N->get_handle($locale) || die "Unknown locale $locale";