From 5f972e33ab82e64bf9a6ad82e5fa993c37294535 Mon Sep 17 00:00:00 2001
From: Galen Charlton <galen.charlton@liblime.com>
Date: Tue, 30 Oct 2007 19:18:05 -0500
Subject: [PATCH] quelled perl -w variable masking warnings

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 C4/Biblio.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index 558b228e4b..b7b559dc5e 100644
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -597,7 +597,6 @@ Exported function (core API) for deleting an item record in Koha.
 
 sub DelItem {
     my ( $dbh, $biblionumber, $itemnumber ) = @_;
-    my $dbh = C4::Context->dbh;
 	
 	# check the item has no current issues
 	
@@ -3700,7 +3699,7 @@ sub _koha_add_biblioitem {
         cn_sort         = ?,
         totalissues     = ?
         ";
-	my $sth = $dbh->prepare($query);
+	$sth = $dbh->prepare($query);
     $sth->execute(
 		$bibitemnum,
         $biblioitem->{'biblionumber'},
@@ -3800,7 +3799,7 @@ sub _koha_new_items {
 			materials 			= ?,
 			uri 				= ?
           ";
-    my $sth = $dbh->prepare($query);
+    $sth = $dbh->prepare($query);
 	$sth->execute(
             $itemnumber,
 			$item->{'biblionumber'},
-- 
2.39.2