@@ -, +, @@ is not allowed to edit --- tools/batchMod.pl | 5 +++++ 1 file changed, 5 insertions(+) --- a/tools/batchMod.pl +++ a/tools/batchMod.pl @@ -201,6 +201,7 @@ if ($op eq "action") { $schema->txn_do( sub { # For each item + my $can_edit = {}; my $i = 1; my $extra_headers = {}; foreach my $itemnumber (@itemnumbers) { @@ -209,6 +210,10 @@ if ($op eq "action") { next unless $item ; # Should have been tested earlier, but just in case... + + $can_edit->{ $item->homebranch } //= $patron->can_edit_item( $item->homebranch ); + next unless $can_edit->{ $item->homebranch }; + my $itemdata = $item->unblessed; if ($del) { my $return = $item->safe_delete; --