Lines 190-195
if ($op eq "action") {
Link Here
|
190 |
$schema->txn_do( |
190 |
$schema->txn_do( |
191 |
sub { |
191 |
sub { |
192 |
# For each item |
192 |
# For each item |
|
|
193 |
my $can_edit = {}; |
193 |
my $i = 1; |
194 |
my $i = 1; |
194 |
foreach my $itemnumber (@itemnumbers) { |
195 |
foreach my $itemnumber (@itemnumbers) { |
195 |
$job->progress($i) if $runinbackground; |
196 |
$job->progress($i) if $runinbackground; |
Lines 197-202
if ($op eq "action") {
Link Here
|
197 |
next |
198 |
next |
198 |
unless $item |
199 |
unless $item |
199 |
; # Should have been tested earlier, but just in case... |
200 |
; # Should have been tested earlier, but just in case... |
|
|
201 |
|
202 |
$can_edit->{ $item->homebranch } //= $patron->can_edit_item( $item->homebranch ); |
203 |
next unless $can_edit->{ $item->homebranch }; |
204 |
|
200 |
my $itemdata = $item->unblessed; |
205 |
my $itemdata = $item->unblessed; |
201 |
if ($del) { |
206 |
if ($del) { |
202 |
my $return = $item->safe_delete; |
207 |
my $return = $item->safe_delete; |
203 |
- |
|
|