[freeside-commits] freeside/FS/FS/pay_batch RBC.pm,1.4,1.5

[Mark Wells]

Update of /home/cvs/cvsroot/freeside/FS/FS/pay_batch
In directory wavetail.420.am:/tmp/cvs-serv15536/FS/FS/pay_batch

Modified Files:
	RBC.pm 
Log Message:
fix floating point error

Index: RBC.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/pay_batch/RBC.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -w -d -r1.4 -r1.5
--- RBC.pm	10 Feb 2010 02:12:43 -0000	1.4
+++ RBC.pm	7 Apr 2010 05:52:48 -0000	1.5
@@ -104,7 +104,7 @@
     sprintf("%09u", $aba).
     sprintf("%-18s", $account).
     ' '.
-    sprintf("%010u",$cust_pay_batch->amount*100).
+    sprintf("%010.0f",$cust_pay_batch->amount*100).
     '      '.
     time2str("%Y%j", $pay_batch->download).
     sprintf("%-30s", $cust_pay_batch->cust_main->first . ' ' .
@@ -131,7 +131,7 @@
     sprintf("%10s", $client_num).
     ' ' x 20 .
     sprintf("%06u", $batchcount).
-    sprintf("%014u", $batchtotal*100).
+    sprintf("%014.0f", $batchtotal*100).
     '00' .
     '000000' . # total number of customer information records
     ' ' x 84