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