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

(-)a/C4/Accounts.pm (-17 lines)
Lines 278-300 sub manualinvoice { Link Here
278
    return 0;
278
    return 0;
279
}
279
}
280
280
281
sub getcharges {
282
    my ( $borrowerno, $timestamp, $accountno ) = @_;
283
    my $dbh        = C4::Context->dbh;
284
    my $timestamp2 = $timestamp - 1;
285
    my $query      = "";
286
    my $sth = $dbh->prepare(
287
            "SELECT * FROM accountlines WHERE borrowernumber=? AND accountno = ?"
288
          );
289
    $sth->execute( $borrowerno, $accountno );
290
291
    my @results;
292
    while ( my $data = $sth->fetchrow_hashref ) {
293
        push @results,$data;
294
    }
295
    return (@results);
296
}
297
298
=head2 purge_zero_balance_fees
281
=head2 purge_zero_balance_fees
299
282
300
  purge_zero_balance_fees( $days );
283
  purge_zero_balance_fees( $days );
(-)a/t/db_dependent/Accounts.t (-2 lines)
Lines 44-50 can_ok( 'C4::Accounts', Link Here
44
        getnextacctno
44
        getnextacctno
45
        chargelostitem
45
        chargelostitem
46
        manualinvoice
46
        manualinvoice
47
        getcharges
48
        purge_zero_balance_fees )
47
        purge_zero_balance_fees )
49
);
48
);
50
49
51
- 

Return to bug 21804