From 97304d173f0969bcbd16ae6b8f1abfee134b22e5 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 | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/tools/batchMod.pl b/tools/batchMod.pl
index adda3766db..a7431a6a71 100755
--- a/tools/batchMod.pl
+++ b/tools/batchMod.pl
@@ -154,12 +154,16 @@ 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