From: Mark Wells <mark@freeside.biz>
Date: Tue, 20 May 2014 17:51:28 +0000 (-0700)
Subject: fix one-cent errors in cust_bill_pkg_tax_location upgrade, #940
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=24b3cded842823df810e6bee6ef66237c783f033;p=freeside.git

fix one-cent errors in cust_bill_pkg_tax_location upgrade, #940
---

diff --git a/FS/FS/cust_bill_pkg.pm b/FS/FS/cust_bill_pkg.pm
index 4b85d303b..bddadbd44 100644
--- a/FS/FS/cust_bill_pkg.pm
+++ b/FS/FS/cust_bill_pkg.pm
@@ -1485,7 +1485,9 @@ sub upgrade_tax_location {
       my $i = 0;
       my $nlinks = scalar(@tax_links);
       if ( $nlinks ) {
-        while (int($cents_remaining) > 0) {
+        # ensure that it really is an integer
+        $cents_remaining = sprintf('%.0f', $cents_remaining);
+        while ($cents_remaining > 0) {
           $tax_links[$i % $nlinks]->{cents} += 1;
           $cents_remaining--;
           $i++;