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