|
Lines 284-290
Returns the decoded JSON contents from $self->data.
Link Here
|
| 284 |
sub decoded_data { |
284 |
sub decoded_data { |
| 285 |
my ($self) = @_; |
285 |
my ($self) = @_; |
| 286 |
|
286 |
|
| 287 |
return $self->data ? $self->json->decode( $self->data ) : undef; |
287 |
return try { |
|
|
288 |
$self->json->decode( $self->data ); |
| 289 |
} catch { |
| 290 |
Koha::Logger->get->warn( |
| 291 |
sprintf "Cannot decode data for background job id=%s", |
| 292 |
$self->id ); |
| 293 |
undef; |
| 294 |
}; |
| 288 |
} |
295 |
} |
| 289 |
|
296 |
|
| 290 |
=head3 set_encoded_data |
297 |
=head3 set_encoded_data |
|
Lines 316-330
Messages let during the processing of the job.
Link Here
|
| 316 |
=cut |
323 |
=cut |
| 317 |
|
324 |
|
| 318 |
sub messages { |
325 |
sub messages { |
| 319 |
my ( $self ) = @_; |
326 |
my ($self) = @_; |
| 320 |
|
327 |
|
| 321 |
my @messages; |
328 |
my $data_dump = $self->decoded_data; |
| 322 |
my $data_dump = $self->json->decode($self->data); |
|
|
| 323 |
if ( exists $data_dump->{messages} ) { |
| 324 |
@messages = @{ $data_dump->{messages} }; |
| 325 |
} |
| 326 |
|
329 |
|
| 327 |
return \@messages; |
330 |
return $data_dump |
|
|
331 |
&& exists $data_dump->{messages} ? $data_dump->{messages} : []; |
| 328 |
} |
332 |
} |
| 329 |
|
333 |
|
| 330 |
=head3 report |
334 |
=head3 report |
|
Lines 334-343
Report of the job.
Link Here
|
| 334 |
=cut |
338 |
=cut |
| 335 |
|
339 |
|
| 336 |
sub report { |
340 |
sub report { |
| 337 |
my ( $self ) = @_; |
341 |
my ($self) = @_; |
| 338 |
|
342 |
|
| 339 |
my $data_dump = $self->json->decode($self->data); |
343 |
my $data_dump = $self->decoded_data; |
| 340 |
return $data_dump->{report} || {}; |
344 |
|
|
|
345 |
return $data_dump |
| 346 |
&& exists $data_dump->{report} ? $data_dump->{report} : {}; |
| 341 |
} |
347 |
} |
| 342 |
|
348 |
|
| 343 |
=head3 additional_report |
349 |
=head3 additional_report |
|
Lines 491-497
sub to_api {
Link Here
|
| 491 |
|
497 |
|
| 492 |
$json->{context} = $self->json->decode($self->context) |
498 |
$json->{context} = $self->json->decode($self->context) |
| 493 |
if defined $self->context; |
499 |
if defined $self->context; |
| 494 |
$json->{data} = $self->decoded_data; |
500 |
|
|
|
501 |
$json->{data} = $self->decoded_data || {}; |
| 495 |
|
502 |
|
| 496 |
return $json; |
503 |
return $json; |
| 497 |
} |
504 |
} |