From 781f1fd28bb3dbe75fd24c627792618409da7143 Mon Sep 17 00:00:00 2001
From: levinse <levinse>
Date: Wed, 18 May 2011 00:33:34 +0000
Subject: internationalization/localization, RT12515

---
 FS/FS/Maketext.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'FS/FS/Maketext.pm')

diff --git a/FS/FS/Maketext.pm b/FS/FS/Maketext.pm
index 319fb1d..965c999 100644
--- a/FS/FS/Maketext.pm
+++ b/FS/FS/Maketext.pm
@@ -4,8 +4,9 @@ use base qw( Exporter );
 use FS::CurrentUser;
 use FS::Conf;
 use FS::L10N;
+use HTML::Entities qw( encode_entities );
 
-our @EXPORT_OK = qw( mt );
+our @EXPORT_OK = qw( mt emt );
 
 our $lh;
 
@@ -14,6 +15,11 @@ sub mt {
   $lh->maketext(@_);
 }
 
+# HTML-escaped version of mt()
+sub emt {
+    encode_entities(mt(@_));
+}
+
 sub lh {
   my $locale =  $FS::CurrentUser::CurrentUser->option('locale')
              || FS::Conf->new->config('locale')
-- 
cgit v1.1