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