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

(-)a/C4/Reserves.pm (-2 / +1 lines)
Lines 650-656 sub GetOtherReserves { Link Here
650
650
651
sub ChargeReserveFee {
651
sub ChargeReserveFee {
652
    my ( $borrowernumber, $fee, $title ) = @_;
652
    my ( $borrowernumber, $fee, $title ) = @_;
653
    return if !$fee;
653
    return if !$fee || $fee==0; # the last test is needed to include 0.00
654
    my $accquery = qq{
654
    my $accquery = qq{
655
INSERT INTO accountlines ( borrowernumber, accountno, date, amount, description, accounttype, amountoutstanding ) VALUES (?, ?, NOW(), ?, ?, 'Res', ?)
655
INSERT INTO accountlines ( borrowernumber, accountno, date, amount, description, accounttype, amountoutstanding ) VALUES (?, ?, NOW(), ?, ?, 'Res', ?)
656
    };
656
    };
657
- 

Return to bug 14801