From dca0e73aedf96278052f0a095fa9ed1d2b5cf776 Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Tue, 27 May 2008 18:04:13 -0500 Subject: [PATCH] Correct number of args to getnextacctno. Signed-off-by: Joshua Ferraro --- C4/Circulation.pm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/C4/Circulation.pm b/C4/Circulation.pm index 0880c99f0d..6bfd69403b 100644 --- a/C4/Circulation.pm +++ b/C4/Circulation.pm @@ -1503,7 +1503,6 @@ Internal function, called by AddReturn sub FixAccountForLostAndReturned { my ($iteminfo, $borrower) = @_; - my %env; my $dbh = C4::Context->dbh; my $itm = $iteminfo->{'itemnumber'}; # check for charge made for lost book @@ -1528,7 +1527,7 @@ sub FixAccountForLostAndReturned { $usth->execute($data->{'borrowernumber'},$itm,$acctno); $usth->finish; #check if any credit is left if so writeoff other accounts - my $nextaccntno = getnextacctno(\%env,$data->{'borrowernumber'},$dbh); + my $nextaccntno = getnextacctno($data->{'borrowernumber'}); if ($amountleft < 0){ $amountleft*=-1; } -- 2.39.5