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

(-)a/C4/Accounts.pm (-17 lines)
Lines 286-308 sub manualinvoice { Link Here
286
    return 0;
286
    return 0;
287
}
287
}
288
288
289
sub getcharges {
290
    my ( $borrowerno, $timestamp, $accountno ) = @_;
291
    my $dbh        = C4::Context->dbh;
292
    my $timestamp2 = $timestamp - 1;
293
    my $query      = "";
294
    my $sth = $dbh->prepare(
295
            "SELECT * FROM accountlines WHERE borrowernumber=? AND accountno = ?"
296
          );
297
    $sth->execute( $borrowerno, $accountno );
298
299
    my @results;
300
    while ( my $data = $sth->fetchrow_hashref ) {
301
        push @results,$data;
302
    }
303
    return (@results);
304
}
305
306
=head2 purge_zero_balance_fees
289
=head2 purge_zero_balance_fees
307
290
308
  purge_zero_balance_fees( $days );
291
  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