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