From: ivan <ivan>
Date: Sun, 16 Dec 2001 00:55:53 +0000 (+0000)
Subject: fix weird rounding error:
X-Git-Tag: freeside_1_4_0pre11~182
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=f1042452ad03c578088c7b43a5e8263770c365c5;p=freeside.git

fix weird rounding error:
total cust_bill_pay.amount 39.9 for paynum 240 greater than cust_pay.paid
39.90
---

diff --git a/FS/FS/cust_bill_pay.pm b/FS/FS/cust_bill_pay.pm
index 5ef82d658..3b95f45ab 100644
--- a/FS/FS/cust_bill_pay.pm
+++ b/FS/FS/cust_bill_pay.pm
@@ -95,7 +95,7 @@ sub insert {
   $pay_total += $_ foreach map { $_->amount }
     qsearch('cust_bill_pay', { 'paynum' => $self->paynum } );
 
-  if ( $pay_total > $cust_pay->paid ) {
+  if ( sprintf("%.2f", $pay_total) > sprintf("%.2f", $cust_pay->paid) ) {
     $dbh->rollback if $oldAutoCommit;
     return "total cust_bill_pay.amount $pay_total for paynum ". $self->paynum.
            " greater than cust_pay.paid ". $cust_pay->paid;
@@ -195,7 +195,7 @@ sub cust_bill {
 
 =head1 VERSION
 
-$Id: cust_bill_pay.pm,v 1.8 2001-09-03 22:07:38 ivan Exp $
+$Id: cust_bill_pay.pm,v 1.9 2001-12-16 00:55:53 ivan Exp $
 
 =head1 BUGS