|
Lines 317-322
sub batch_update {
Link Here
|
| 317 |
|
317 |
|
| 318 |
my ( @modified_itemnumbers, $modified_fields ); |
318 |
my ( @modified_itemnumbers, $modified_fields ); |
| 319 |
my $i; |
319 |
my $i; |
|
|
320 |
my @errors; |
| 320 |
my $schema = Koha::Database->new->schema; |
321 |
my $schema = Koha::Database->new->schema; |
| 321 |
while ( my $item = $self->next ) { |
322 |
while ( my $item = $self->next ) { |
| 322 |
|
323 |
|
|
Lines 436-441
sub batch_update {
Link Here
|
| 436 |
} |
437 |
} |
| 437 |
) |
438 |
) |
| 438 |
} catch { |
439 |
} catch { |
|
|
440 |
push @errors, { |
| 441 |
error => eval { $_->{error} } || "$_", |
| 442 |
}; |
| 439 |
warn $_ |
443 |
warn $_ |
| 440 |
}; |
444 |
}; |
| 441 |
|
445 |
|
|
Lines 458-464
sub batch_update {
Link Here
|
| 458 |
} |
462 |
} |
| 459 |
} |
463 |
} |
| 460 |
|
464 |
|
| 461 |
return ( { modified_itemnumbers => \@modified_itemnumbers, modified_fields => $modified_fields }, $self ); |
465 |
return ( |
|
|
466 |
{ modified_itemnumbers => \@modified_itemnumbers, modified_fields => $modified_fields, errors => \@errors }, |
| 467 |
$self |
| 468 |
); |
| 462 |
} |
469 |
} |
| 463 |
|
470 |
|
| 464 |
sub apply_regex { |
471 |
sub apply_regex { |