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