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