SF.net SVN: ledger-smb:[5915] trunk/bin/ir.pl

[..hidden..]

Revision: 5915
          http://sourceforge.net/p/ledger-smb/code/5915
Author:   tshvr
Date:     2013-07-22 19:59:26 +0000 (Mon, 22 Jul 2013)
Log Message:
-----------
sharpen test , paid_i seems to be initialied to 0.0

Modified Paths:
--------------
    trunk/bin/ir.pl

Modified: trunk/bin/ir.pl
===================================================================
--- trunk/bin/ir.pl	2013-07-22 19:58:17 UTC (rev 5914)
+++ trunk/bin/ir.pl	2013-07-22 19:59:26 UTC (rev 5915)
@@ -1376,7 +1376,8 @@
       if ( $form->{currency} ne $form->{defaultcurrency} );
 
     for $i ( 1 .. $form->{paidaccounts} ) {
-        if ( $form->{"paid_$i"} ) {
+        #if ( $form->{"paid_$i"} ) {
+        if ( $form->{"paid_$i"} !=0.0 ) {
             $datepaid = $form->datetonum( \%myconfig, $form->{"datepaid_$i"} );
 
             $form->isblank( "datepaid_$i",

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