diff options
| author | jeff <jeff> | 2001-09-01 21:55:06 +0000 |
|---|---|---|
| committer | jeff <jeff> | 2001-09-01 21:55:06 +0000 |
| commit | 80e8925f41f10f9787fa4fe245dcd056ada7a71f (patch) | |
| tree | 275aeab7027c18b0123774eccbfcb102b1ea316b /FS/FS/cust_bill_pay.pm | |
| parent | 6412f71a3557249225abf5eb2096ebad1729c585 (diff) | |
oops.. need this too
Diffstat (limited to 'FS/FS/cust_bill_pay.pm')
| -rw-r--r-- | FS/FS/cust_bill_pay.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/FS/FS/cust_bill_pay.pm b/FS/FS/cust_bill_pay.pm index 045a949..e7040d9 100644 --- a/FS/FS/cust_bill_pay.pm +++ b/FS/FS/cust_bill_pay.pm @@ -108,8 +108,8 @@ sub insert { my $bill_total = 0; $bill_total += foreach map { $_->amount } qsearch('cust_bill_pay', { 'invnum' => $self->invnum } ); -# $bill_total += foreach map { $_->amount } -# qsearch('cust_credit_bill', { 'invnum' => $self->invnum } ); + $bill_total += foreach map { $_->amount } + qsearch('cust_credit_bill', { 'invnum' => $self->invnum } ); if ( $bill_total > $cust_bill->charged ) { $dbh->rollback if $oldAutoCommit; return "total cust_bill_pay.amount and cust_credit_bill.amount $bill_total". @@ -171,7 +171,7 @@ sub check { =head1 VERSION -$Id: cust_bill_pay.pm,v 1.1 2001-09-01 20:11:07 ivan Exp $ +$Id: cust_bill_pay.pm,v 1.2 2001-09-01 21:55:06 jeff Exp $ =head1 BUGS |