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 |
- |
|
|