SF.net SVN: ledger-smb: [1639] branches/1.2/bin/gl.pl

[..hidden..]

Revision: 1639
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1639&view=rev
Author:   tetragon
Date:     2007-09-21 13:45:36 -0700 (Fri, 21 Sep 2007)

Log Message:
-----------
Committing a fix for bug 1789169

Modified Paths:
--------------
    branches/1.2/bin/gl.pl

Modified: branches/1.2/bin/gl.pl
===================================================================
--- branches/1.2/bin/gl.pl	2007-09-21 20:16:10 UTC (rev 1638)
+++ branches/1.2/bin/gl.pl	2007-09-21 20:45:36 UTC (rev 1639)
@@ -1343,7 +1343,8 @@
         $credit += $cr;
     }
 
-    if ( $form->round_amount( $debit, 2 ) != $form->round_amount( $credit, 2 ) )
+    if ($form->round_amount( $debit, 2 ) != $form->round_amount( $credit, 2 ) ||
+      $debit->is_nan || $credit->is_nan)
     {
         $form->error( $locale->text('Out of balance transaction!') );
     }


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