From 5f972e33ab82e64bf9a6ad82e5fa993c37294535 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Tue, 30 Oct 2007 19:18:05 -0500 Subject: [PATCH] quelled perl -w variable masking warnings Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- 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.5