From c02cd2cabff9a09a7440efec775a88160c6ca634 Mon Sep 17 00:00:00 2001
From: Colin Campbell <colin.campbell@ptfs-europe.com>
Date: Wed, 8 Sep 2010 14:30:15 +0100
Subject: [PATCH] Bug 5205 Fix compile time warnings in tools/batchMod.pl

$dbh was declared twice
prototypes used in a subroutine that was not declared before use

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
---
 tools/batchMod.pl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/tools/batchMod.pl b/tools/batchMod.pl
index f5138d1561..5271d8142d 100755
--- a/tools/batchMod.pl
+++ b/tools/batchMod.pl
@@ -82,7 +82,6 @@ my @not_deleted;           # List of the itemnumbers that could not be deleted
 
 my %cookies = parse CGI::Cookie($cookie);
 my $sessionID = $cookies{'CGISESSID'}->value;
-my $dbh = C4::Context->dbh;
 
 
 #--- ----------------------------------------------------------------------------
@@ -492,7 +491,7 @@ sub BuildItemsData{
 # Where subfield is not repeated
 # And where we are sure that field should correspond
 # And $tag>10
-sub UpdateMarcWith($$){
+sub UpdateMarcWith {
   my ($marcfrom,$marcto)=@_;
   #warn "FROM :",$marcfrom->as_formatted;
 	my (  $itemtag,   $itemtagsubfield) = &GetMarcFromKohaField("items.itemnumber", "");
-- 
2.39.5