From c06c269969f9d44e3eb9e038a579a7674f89ae09 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 27 Jul 2021 18:19:18 +0200 Subject: [PATCH] Bug 28445: Fix encoding issue with the background job's report --- Koha/BackgroundJob.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Koha/BackgroundJob.pm b/Koha/BackgroundJob.pm index dc65739a3a8..aea13f9a85d 100644 --- a/Koha/BackgroundJob.pm +++ b/Koha/BackgroundJob.pm @@ -17,6 +17,7 @@ package Koha::BackgroundJob; use Modern::Perl; use JSON qw( decode_json encode_json ); +use Encode qw( encode_utf8 ); use Carp qw( croak ); use Net::Stomp; use Try::Tiny qw( catch try ); @@ -182,7 +183,7 @@ sub messages { my ( $self ) = @_; my @messages; - my $data_dump = decode_json $self->data; + my $data_dump = decode_json encode_utf8 $self->data; if ( exists $data_dump->{messages} ) { @messages = @{ $data_dump->{messages} }; } @@ -199,7 +200,7 @@ Report of the job. sub report { my ( $self ) = @_; - my $data_dump = decode_json $self->data; + my $data_dump = decode_json encode_utf8 $self->data; return $data_dump->{report} || {}; } -- 2.20.1