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; }