Corrected wrong number of arguments to getnextacctno.
authorJoe Atzberger <joe.atzberger@liblime.com>
Tue, 27 May 2008 23:04:12 +0000 (18:04 -0500)
committerJoshua Ferraro <jmf@liblime.com>
Thu, 29 May 2008 12:04:33 +0000 (07:04 -0500)
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
catalogue/updateitem.pl

index 1c0906a..26a99fe 100755 (executable)
@@ -97,7 +97,7 @@ if ($itemlost==1) {
         # OK, they haven't
         unless ($existing_charge_hashref) {
             # This item is on issue ... add replacement cost to the borrower's record and mark it returned
-            my $accountno = getnextacctno('',$issues->{'borrowernumber'},$dbh);
+            my $accountno = getnextacctno($issues->{'borrowernumber'});
             my $sth2=$dbh->prepare("INSERT INTO accountlines
             (borrowernumber,accountno,date,amount,description,accounttype,amountoutstanding,itemnumber)
             VALUES