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