Lines 39-45
BEGIN {
Link Here
|
39 |
@EXPORT = qw( |
39 |
@EXPORT = qw( |
40 |
&manualinvoice |
40 |
&manualinvoice |
41 |
&getnextacctno |
41 |
&getnextacctno |
42 |
&getcharges |
|
|
43 |
&chargelostitem |
42 |
&chargelostitem |
44 |
&ReversePayment |
43 |
&ReversePayment |
45 |
&purge_zero_balance_fees |
44 |
&purge_zero_balance_fees |
Lines 280-302
sub manualinvoice {
Link Here
|
280 |
return 0; |
279 |
return 0; |
281 |
} |
280 |
} |
282 |
|
281 |
|
283 |
sub getcharges { |
|
|
284 |
my ( $borrowerno, $timestamp, $accountno ) = @_; |
285 |
my $dbh = C4::Context->dbh; |
286 |
my $timestamp2 = $timestamp - 1; |
287 |
my $query = ""; |
288 |
my $sth = $dbh->prepare( |
289 |
"SELECT * FROM accountlines WHERE borrowernumber=? AND accountno = ?" |
290 |
); |
291 |
$sth->execute( $borrowerno, $accountno ); |
292 |
|
293 |
my @results; |
294 |
while ( my $data = $sth->fetchrow_hashref ) { |
295 |
push @results,$data; |
296 |
} |
297 |
return (@results); |
298 |
} |
299 |
|
300 |
#FIXME: ReversePayment should be replaced with a Void Payment feature |
282 |
#FIXME: ReversePayment should be replaced with a Void Payment feature |
301 |
sub ReversePayment { |
283 |
sub ReversePayment { |
302 |
my ($accountlines_id) = @_; |
284 |
my ($accountlines_id) = @_; |