SF.net SVN: ledger-smb:[3921] branches/1.2

[..hidden..]

Revision: 3921
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3921&view=rev
Author:   einhverfr
Date:     2011-10-25 06:14:36 +0000 (Tue, 25 Oct 2011)
Log Message:
-----------
Correcting known Math::BigFloat issues on 1.2

Modified Paths:
--------------
    branches/1.2/LedgerSMB/IS.pm
    branches/1.2/bin/aa.pl
    branches/1.2/bin/io.pl

Modified: branches/1.2/LedgerSMB/IS.pm
===================================================================
--- branches/1.2/LedgerSMB/IS.pm	2011-10-25 05:00:19 UTC (rev 3920)
+++ branches/1.2/LedgerSMB/IS.pm	2011-10-25 06:14:36 UTC (rev 3921)
@@ -32,6 +32,7 @@
 #======================================================================
 
 package IS;
+use Math::BigFloat;
 use LedgerSMB::Tax;
 use LedgerSMB::PriceMatrix;
 use LedgerSMB::Sysconfig;
@@ -626,7 +627,7 @@
     $form->format_string(qw(text_amount text_decimal));
 
     $form->{total} =
-      $form->format_amount( $myconfig, $form->{invtotal} - $form->{paid}, 2 );
+      $form->format_amount( $myconfig, $form->{invtotal} - Math::BigFloat->new($form->{paid}), 2 );
 
     $form->{invtotal} = $form->format_amount( $myconfig, $form->{invtotal}, 2 );
 

Modified: branches/1.2/bin/aa.pl
===================================================================
--- branches/1.2/bin/aa.pl	2011-10-25 05:00:19 UTC (rev 3920)
+++ branches/1.2/bin/aa.pl	2011-10-25 06:14:36 UTC (rev 3921)
@@ -44,6 +44,7 @@
 #
 #======================================================================
 
+use Math::BigFloat;
 use LedgerSMB::Tax;
 
 # any custom scripts for this one
@@ -1009,9 +1010,8 @@
         }
     }
     $form->{paidaccounts} = $j;
-
     $form->{creditremaining} -=
-      ( $form->{invtotal} - $totalpaid + $form->{oldtotalpaid} -
+      ( $form->{invtotal} - Math::BigFloat->new($totalpaid) + $form->{oldtotalpaid} -
           $form->{oldinvtotal} );
     $form->{oldinvtotal}  = $form->{invtotal};
     $form->{oldtotalpaid} = $totalpaid;

Modified: branches/1.2/bin/io.pl
===================================================================
--- branches/1.2/bin/io.pl	2011-10-25 05:00:19 UTC (rev 3920)
+++ branches/1.2/bin/io.pl	2011-10-25 06:14:36 UTC (rev 3921)
@@ -1261,7 +1261,6 @@
 }
 
 sub print_options {
-
     $form->{sendmode} = "attachment";
     $form->{copies} = 1 unless $form->{copies};
 

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.