aboutsummaryrefslogtreecommitdiffstats
path: root/perllib
diff options
context:
space:
mode:
authorM Somerville <matthew-github@dracos.co.uk>2020-10-15 21:57:06 +0100
committerM Somerville <matthew-github@dracos.co.uk>2020-10-16 09:00:00 +0100
commit3227d1b61693022f6cf0efa790449182efb25784 (patch)
tree13fba3f17c550d6375256b4e691e976a5a0f2f94 /perllib
parent6dffdeb335030fa7f2ccf7ce70713bef9894cfea (diff)
Fix issue with unicode in extra in alert emails.
Diffstat (limited to 'perllib')
-rw-r--r--perllib/FixMyStreet/Template.pm2
1 files changed, 2 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/Template.pm b/perllib/FixMyStreet/Template.pm
index bc087de9a..afb977ac9 100644
--- a/perllib/FixMyStreet/Template.pm
+++ b/perllib/FixMyStreet/Template.pm
@@ -175,6 +175,7 @@ sub email_sanitize_text : Fn('email_sanitize_text') {
my $text = $update->{item_text};
my $extra = $update->{item_extra};
+ utf8::encode($extra) if $extra;
$extra = $extra ? RABX::wire_rd(new IO::String($extra)) : {};
my $staff = $extra->{is_superuser} || $extra->{is_body_user};
@@ -234,6 +235,7 @@ sub email_sanitize_html : Fn('email_sanitize_html') {
my $text = $update->{item_text};
my $extra = $update->{item_extra};
+ utf8::encode($extra) if $extra;
$extra = $extra ? RABX::wire_rd(new IO::String($extra)) : {};
my $staff = $extra->{is_superuser} || $extra->{is_body_user};