SF.net SVN: ledger-smb: [1575] branches/1.2/bin/cp.pl

[..hidden..]

Revision: 1575
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1575&view=rev
Author:   einhverfr
Date:     2007-09-12 00:00:51 -0700 (Wed, 12 Sep 2007)

Log Message:
-----------
Fixing payment screen to work with new is_nan checks.

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

Modified: branches/1.2/bin/cp.pl
===================================================================
--- branches/1.2/bin/cp.pl	2007-09-12 06:37:22 UTC (rev 1574)
+++ branches/1.2/bin/cp.pl	2007-09-12 07:00:51 UTC (rev 1575)
@@ -370,7 +370,6 @@
 }
 
 sub invoices_due {
-
     @column_index =
       qw(name invnumber transdate amount due checked paid memo source);
     push @column_index, "language" if $form->{selectlanguage};
@@ -715,7 +714,8 @@
 
         for (qw(amount due paid)) {
             $form->{"${_}_$i"} =
-              $form->format_amount( \%myconfig, $form->{"${_}_$i"}, 2 );
+              $form->format_amount( \%myconfig, $form->{"${_}_$i"}, 2 )
+		if $form->{"${_}_$i"};
         }
     }
 
@@ -891,7 +891,8 @@
 
         for (qw(amount due paid)) {
             $form->{"${_}_$i"} =
-              $form->format_amount( \%myconfig, $form->{"${_}_$i"}, 2 );
+              $form->format_amount( \%myconfig, $form->{"${_}_$i"}, 2 )
+		if $form->{"${_}_$i"};
         }
     }
 


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