View | Details | Raw Unified | Return to bug 21679
Collapse All | Expand All

(-)a/C4/Reserves.pm (-2 / +1 lines)
Lines 571-577 sub ChargeReserveFee { Link Here
571
INSERT INTO accountlines ( borrowernumber, accountno, date, amount, description, accounttype, amountoutstanding ) VALUES (?, ?, NOW(), ?, ?, 'Res', ?)
571
INSERT INTO accountlines ( borrowernumber, accountno, date, amount, description, accounttype, amountoutstanding ) VALUES (?, ?, NOW(), ?, ?, 'Res', ?)
572
    };
572
    };
573
    my $dbh = C4::Context->dbh;
573
    my $dbh = C4::Context->dbh;
574
    my $nextacctno = &getnextacctno( $borrowernumber );
574
    my $nextacctno = C4::Accounts::getnextacctno( $borrowernumber );
575
    $dbh->do( $accquery, undef, ( $borrowernumber, $nextacctno, $fee, "Reserve Charge - $title", $fee ) );
575
    $dbh->do( $accquery, undef, ( $borrowernumber, $nextacctno, $fee, "Reserve Charge - $title", $fee ) );
576
}
576
}
577
577
578
- 

Return to bug 21679