|
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 |
|