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

(-)a/C4/Accounts.pm (-1 / +17 lines)
Lines 310-315 sub manualinvoice { Link Here
310
    return 0;
310
    return 0;
311
}
311
}
312
312
313
=head2 getcharges
314
315
  my @charges = getcharges( $borrowernumber, $timestamp, $accountno );
316
317
Find all the charges for a given borrower number and account number.
318
319
B<$borrowernumber> -- Borrower number to look for in accountlines.
320
321
B<$timestamp> -- Unused parameter.
322
323
B<$accountno> -- Account number to look for in accountlines.
324
325
Returns an array of hash references from accountlines which match the
326
criteria.
327
328
=cut
329
313
sub getcharges {
330
sub getcharges {
314
    my ( $borrowerno, $timestamp, $accountno ) = @_;
331
    my ( $borrowerno, $timestamp, $accountno ) = @_;
315
    my $dbh        = C4::Context->dbh;
332
    my $dbh        = C4::Context->dbh;
316
- 

Return to bug 20629