|
Lines 637-643
sub GetFine {
Link Here
|
| 637 |
my ( $itemnum, $borrowernumber ) = @_; |
637 |
my ( $itemnum, $borrowernumber ) = @_; |
| 638 |
my $dbh = C4::Context->dbh(); |
638 |
my $dbh = C4::Context->dbh(); |
| 639 |
my $query = q|SELECT sum(amountoutstanding) as fineamount FROM accountlines |
639 |
my $query = q|SELECT sum(amountoutstanding) as fineamount FROM accountlines |
| 640 |
where accounttype like 'F%' |
640 |
where accounttype like 'OVERDUE' |
| 641 |
AND amountoutstanding > 0 AND borrowernumber=?|; |
641 |
AND amountoutstanding > 0 AND borrowernumber=?|; |
| 642 |
my @query_param; |
642 |
my @query_param; |
| 643 |
push @query_param, $borrowernumber; |
643 |
push @query_param, $borrowernumber; |
| 644 |
- |
|
|