View | Details | Raw Unified | Return to bug 28445
Collapse All | Expand All

(-)a/Koha/BackgroundJob.pm (-3 / +3 lines)
Lines 17-22 package Koha::BackgroundJob; Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use JSON qw( decode_json encode_json );
19
use JSON qw( decode_json encode_json );
20
use Encode qw( encode_utf8 );
20
use Carp qw( croak );
21
use Carp qw( croak );
21
use Net::Stomp;
22
use Net::Stomp;
22
use Try::Tiny qw( catch try );
23
use Try::Tiny qw( catch try );
Lines 182-188 sub messages { Link Here
182
    my ( $self ) = @_;
183
    my ( $self ) = @_;
183
184
184
    my @messages;
185
    my @messages;
185
    my $data_dump = decode_json $self->data;
186
    my $data_dump = decode_json encode_utf8 $self->data;
186
    if ( exists $data_dump->{messages} ) {
187
    if ( exists $data_dump->{messages} ) {
187
        @messages = @{ $data_dump->{messages} };
188
        @messages = @{ $data_dump->{messages} };
188
    }
189
    }
Lines 199-205 Report of the job. Link Here
199
sub report {
200
sub report {
200
    my ( $self ) = @_;
201
    my ( $self ) = @_;
201
202
202
    my $data_dump = decode_json $self->data;
203
    my $data_dump = decode_json encode_utf8 $self->data;
203
    return $data_dump->{report} || {};
204
    return $data_dump->{report} || {};
204
}
205
}
205
206
206
- 

Return to bug 28445