From 71d22ab82758f159c9e8b71f7801ef6b43f38a90 Mon Sep 17 00:00:00 2001 From: Ricardo Dias Marques Date: Tue, 14 Jun 2011 18:24:29 +0100 Subject: [PATCH] Bug 6503 - Variable $sth is declared 3 times (with keyword "my") in "makepayment" sub of "Accounts.pm" In the code available today (14-Jun-2011), in Koha git's "master" branch, the file "Accounts.pm" (in the "C4" directory) has the variable "$sth" declared 3 times in the "makepayment" sub. This causes the following warnings to appear when running "make test" in Koha installation, for several tests: t/Heading.t ......................... "my" variable $sth masks earlier declaration in same scope at kohaclone/blib/PERL_MODULE_DIR/C4/Accounts.pm line 172. "my" variable $sth masks earlier declaration in same scope at kohaclone/blib/PERL_MODULE_DIR/C4/Accounts.pm line 188. [...] t/ILSDI_Services.t .................. "my" variable $sth masks earlier declaration in same scope at kohaclone/blib/PERL_MODULE_DIR/C4/Accounts.pm line 172. "my" variable $sth masks earlier declaration in same scope at kohaclone/blib/PERL_MODULE_DIR/C4/Accounts.pm line 188. [...etc...] Therefore, I'm removing the "my" keyword from the declarations of "$sth" in lines 172 and 188 of "Accounts.pm". Signed-off-by: Chris Cormack --- C4/Accounts.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/C4/Accounts.pm b/C4/Accounts.pm index 7bddd1ae64..3275099a13 100644 --- a/C4/Accounts.pm +++ b/C4/Accounts.pm @@ -169,7 +169,7 @@ sub makepayment { my $data = $sth->fetchrow_hashref; $sth->finish; - my $sth = $dbh->prepare("UPDATE accountlines + $sth = $dbh->prepare("UPDATE accountlines SET amountoutstanding = 0 WHERE borrowernumber = ? AND accountno = ?"); @@ -185,7 +185,7 @@ sub makepayment { # create new line my $payment = 0 - $amount; - my $sth = $dbh->prepare("INSERT INTO accountlines + $sth = $dbh->prepare("INSERT INTO accountlines (borrowernumber, accountno, date, amount, description, accounttype, amountoutstanding) VALUES (?,?,now(),?,?,'Pay',0)"); -- 2.39.5