From 29a315f2dc4187e5558315f76c3d27d11e287620 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 21 Dec 2001 20:55:35 +0000
Subject: [PATCH] fixes

  total cust_bill_pay.amount and cust_credit_bill.amount 19.95 for invnum 1659
  greater than cust_bill.charged 19.95 at
  /usr/local/lib/perl5/site_perl/5.005/FS/cust_main.pm line 1519.
---
 FS/FS/cust_bill_pay.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/FS/FS/cust_bill_pay.pm b/FS/FS/cust_bill_pay.pm
index 3b95f45ab..2b0105139 100644
--- a/FS/FS/cust_bill_pay.pm
+++ b/FS/FS/cust_bill_pay.pm
@@ -111,7 +111,7 @@ sub insert {
     qsearch('cust_bill_pay', { 'invnum' => $self->invnum } );
   $bill_total += $_ foreach map { $_->amount } 
     qsearch('cust_credit_bill', { 'invnum' => $self->invnum } );
-  if ( $bill_total > $cust_bill->charged ) {
+  if ( sprintf("%.2f", $bill_total) > sprintf("%.2f", $cust_bill->charged) ) {
     $dbh->rollback if $oldAutoCommit;
     return "total cust_bill_pay.amount and cust_credit_bill.amount $bill_total".
            " for invnum ". $self->invnum.
@@ -195,7 +195,7 @@ sub cust_bill {
 
 =head1 VERSION
 
-$Id: cust_bill_pay.pm,v 1.9 2001-12-16 00:55:53 ivan Exp $
+$Id: cust_bill_pay.pm,v 1.10 2001-12-21 20:55:35 ivan Exp $
 
 =head1 BUGS
 
-- 
2.11.0