@@ -, +, @@ -> should return no occurences -> should pass --- C4/Accounts.pm | 17 ----------------- t/db_dependent/Accounts.t | 1 - 2 files changed, 18 deletions(-) --- a/C4/Accounts.pm +++ a/C4/Accounts.pm @@ -286,23 +286,6 @@ sub manualinvoice { return 0; } -sub getcharges { - my ( $borrowerno, $timestamp, $accountno ) = @_; - my $dbh = C4::Context->dbh; - my $timestamp2 = $timestamp - 1; - my $query = ""; - my $sth = $dbh->prepare( - "SELECT * FROM accountlines WHERE borrowernumber=? AND accountno = ?" - ); - $sth->execute( $borrowerno, $accountno ); - - my @results; - while ( my $data = $sth->fetchrow_hashref ) { - push @results,$data; - } - return (@results); -} - =head2 purge_zero_balance_fees purge_zero_balance_fees( $days ); --- a/t/db_dependent/Accounts.t +++ a/t/db_dependent/Accounts.t @@ -44,7 +44,6 @@ can_ok( 'C4::Accounts', getnextacctno chargelostitem manualinvoice - getcharges purge_zero_balance_fees ) ); --