From 427af975e002468baa4bba9166b63f6bd6346369 Mon Sep 17 00:00:00 2001
From: Kyle M Hall <kyle@bywatersolutions.com>
Date: Wed, 4 Dec 2019 13:33:47 -0500
Subject: [PATCH] Bug 20256: (QA follow-up) Skip batch editing items the user
 is not allowed to edit

Signed-off-by: Bob Bennhoff - CLiC <bbennhoff@clicweb.org>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
---
 tools/batchMod.pl | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/tools/batchMod.pl b/tools/batchMod.pl
index 426da34b7a..7f96f17659 100755
--- a/tools/batchMod.pl
+++ b/tools/batchMod.pl
@@ -178,12 +178,17 @@ if ($op eq "action") {
             $schema->txn_do(
                 sub {
                     # For each item
+                    my $can_edit = {};
                     my $i = 1;
                     foreach my $itemnumber (@itemnumbers) {
                         my $item = Koha::Items->find($itemnumber);
                         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;
-- 
2.20.1