|
Lines 459-464
sub batch_update {
Link Here
|
| 459 |
|
459 |
|
| 460 |
my ( @modified_itemnumbers, $modified_fields ); |
460 |
my ( @modified_itemnumbers, $modified_fields ); |
| 461 |
my $i; |
461 |
my $i; |
|
|
462 |
my @errors; |
| 462 |
my $schema = Koha::Database->new->schema; |
463 |
my $schema = Koha::Database->new->schema; |
| 463 |
while ( my $item = $self->next ) { |
464 |
while ( my $item = $self->next ) { |
| 464 |
|
465 |
|
|
Lines 578-583
sub batch_update {
Link Here
|
| 578 |
} |
579 |
} |
| 579 |
) |
580 |
) |
| 580 |
} catch { |
581 |
} catch { |
|
|
582 |
push @errors, { |
| 583 |
error => eval { $_->{error} } || "$_", |
| 584 |
}; |
| 581 |
warn $_ |
585 |
warn $_ |
| 582 |
}; |
586 |
}; |
| 583 |
|
587 |
|
|
Lines 600-606
sub batch_update {
Link Here
|
| 600 |
} |
604 |
} |
| 601 |
} |
605 |
} |
| 602 |
|
606 |
|
| 603 |
return ( { modified_itemnumbers => \@modified_itemnumbers, modified_fields => $modified_fields }, $self ); |
607 |
return ( |
|
|
608 |
{ modified_itemnumbers => \@modified_itemnumbers, modified_fields => $modified_fields, errors => \@errors }, |
| 609 |
$self |
| 610 |
); |
| 604 |
} |
611 |
} |
| 605 |
|
612 |
|
| 606 |
=head2 apply_regex |
613 |
=head2 apply_regex |