From 80e8925f41f10f9787fa4fe245dcd056ada7a71f Mon Sep 17 00:00:00 2001 From: jeff Date: Sat, 1 Sep 2001 21:55:06 +0000 Subject: [PATCH 1/1] oops.. need this too --- FS/FS/cust_bill_pay.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/FS/FS/cust_bill_pay.pm b/FS/FS/cust_bill_pay.pm index 045a9490b..e7040d96b 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 -- 2.11.0