SF.net SVN: ledger-smb: [1641] branches/1.2/LedgerSMB/OE.pm

[..hidden..]

Revision: 1641
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1641&view=rev
Author:   tetragon
Date:     2007-09-21 17:03:34 -0700 (Fri, 21 Sep 2007)

Log Message:
-----------
Adding another NaN check

Modified Paths:
--------------
    branches/1.2/LedgerSMB/OE.pm

Modified: branches/1.2/LedgerSMB/OE.pm
===================================================================
--- branches/1.2/LedgerSMB/OE.pm	2007-09-22 00:00:28 UTC (rev 1640)
+++ branches/1.2/LedgerSMB/OE.pm	2007-09-22 00:03:34 UTC (rev 1641)
@@ -594,6 +594,11 @@
     $sth = $dbh->prepare($query);
     $sth->execute(@queryargs) || $form->dberror($query);
 
+    if ( $amount->is_nan ) {
+        $dbh->rollback;
+        return;
+    }
+
     if ( !$did_insert ) {
         @queries = $form->run_custom_queries( 'oe', 'UPDATE' );
     }


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