SF.net SVN: ledger-smb:[3119] trunk/LedgerSMB/Form.pm

[..hidden..]

Revision: 3119
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3119&view=rev
Author:   einhverfr
Date:     2011-02-10 22:48:12 +0000 (Thu, 10 Feb 2011)

Log Message:
-----------
Correcting NAN bug on AR/AP screens

Modified Paths:
--------------
    trunk/LedgerSMB/Form.pm

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2011-01-27 02:56:51 UTC (rev 3118)
+++ trunk/LedgerSMB/Form.pm	2011-02-10 22:48:12 UTC (rev 3119)
@@ -769,11 +769,9 @@
     $dash = "" unless defined $dash;
 
     my $negative;
-    if ($amount) {
-        $amount = $self->parse_amount( $myconfig, $amount );
-        $negative = ( $amount < 0 );
-        $amount =~ s/-//;
-    }
+    $amount = $self->parse_amount( $myconfig, $amount );
+    $negative = ( $amount < 0 );
+    $amount =~ s/-//;
 
     if ( $places =~ /\d+/ ) {
 
@@ -884,7 +882,7 @@
 
     #if ( ( $amount eq '' ) or ( ! defined $amount ) ) {
     if ( ( ! defined $amount ) or ( $amount eq '' ) ) {
-        $amount = 0;
+        $amount = Math::BigFloat->bzero();
     }
 
     if ( UNIVERSAL::isa( $amount, 'Math::BigFloat' ) )


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