From c51b1a20c3514fdf973d279f86a07ce62b34b1f9 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Tue, 4 Jan 2022 15:40:19 +0100
Subject: [PATCH] Bug 29789: Remove unused $error from cataloguing/additem.pl

my $error        = $input->param('error');

It should be removed as $error is used later but not related to this variable.
---
 cataloguing/additem.pl | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl
index 80e17abda32..c98eacae848 100755
--- a/cataloguing/additem.pl
+++ b/cataloguing/additem.pl
@@ -78,7 +78,6 @@ sub get_item_from_cookie {
 }
 
 my $input        = CGI->new;
-my $error        = $input->param('error');
 
 my $biblionumber;
 my $itemnumber;
@@ -377,7 +376,7 @@ if ($op eq "additem") {
 #-------------------------------------------------------------------------------
     # check that there is no issue on this item before deletion.
     my $item = Koha::Items->find($itemnumber);
-    $error = $item->safe_delete;
+    my $error = $item->safe_delete;
     if(ref($error) eq 'Koha::Item'){
         print $input->redirect("additem.pl?biblionumber=$biblionumber&frameworkcode=$frameworkcode&searchid=$searchid");
     }else{
@@ -389,7 +388,7 @@ if ($op eq "additem") {
 #-------------------------------------------------------------------------------
     my $items = Koha::Items->search({ biblionumber => $biblionumber });
     while ( my $item = $items->next ) {
-        $error = $item->safe_delete({ skip_record_index => 1 });
+        my $error = $item->safe_delete({ skip_record_index => 1 });
         next if ref $error eq 'Koha::Item'; # Deleted item is returned if deletion successful
         push @errors,$error;
     }
-- 
2.25.1