| Lines 46-54
          BEGIN {
      
      
        Link Here | 
        
          | 46 | 		&getrefunds | 46 | 		&getrefunds | 
        
          | 47 | 		&chargelostitem | 47 | 		&chargelostitem | 
        
          | 48 | 		&ReversePayment | 48 | 		&ReversePayment | 
          
            
              | 49 |                 &makepartialpayment | 49 |         &makepartialpayment | 
            
              | 50 |                 &recordpayment_selectaccts | 50 |         &recordpayment_selectaccts | 
            
              | 51 |                 &WriteOffFee | 51 |         &WriteOffFee | 
            
              |  |  | 52 |         &purge_zero_balance_fees | 
        
          | 52 | 	); | 53 | 	); | 
        
          | 53 | } | 54 | } | 
        
          | 54 |  | 55 |  | 
  
    | Lines 824-829
          sub WriteOffFee {
      
      
        Link Here | 
        
          | 824 |  | 825 |  | 
        
          | 825 | } | 826 | } | 
        
          | 826 |  | 827 |  | 
            
              |  |  | 828 | =head2 purge_zero_balance_fees | 
            
              | 829 |  | 
            
              | 830 |   purge_zero_balance_fees( $days ); | 
            
              | 831 |  | 
            
              | 832 | Delete accountlines entries where amountoutstanding is 0 which are more than a given number of days old. | 
            
              | 833 |  | 
            
              | 834 | B<$days> -- Zero balance fees older than B<$days> days old will be deleted. | 
            
              | 835 |  | 
            
              | 836 | =cut | 
            
              | 837 |  | 
            
              | 838 | sub purge_zero_balance_fees { | 
            
              | 839 |     my $days  = shift; | 
            
              | 840 |     my $count = 0; | 
            
              | 841 |  | 
            
              | 842 |     my $dbh = C4::Context->dbh; | 
            
              | 843 |     my $sth = $dbh->prepare( | 
            
              | 844 |         q{ | 
            
              | 845 |             DELETE FROM accountlines | 
            
              | 846 |             WHERE date < date_sub(curdate(), INTERVAL ? DAY) | 
            
              | 847 |               AND amountoutstanding = 0; | 
            
              | 848 |         } | 
            
              | 849 |     ); | 
            
              | 850 |     $sth->execute($days) or die $dbh->errstr; | 
            
              | 851 | } | 
            
              | 852 |  | 
        
          | 827 | END { }    # module clean-up code here (global destructor) | 853 | END { }    # module clean-up code here (global destructor) | 
        
          | 828 |  | 854 |  | 
        
          | 829 | 1; | 855 | 1; | 
            
              | 830 | -  |  |  |