Fixing payment screen to work with new is_nan checks.

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1576 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 4 insertions, 3 deletions

diff --git a/bin/cp.pl b/bin/cp.pl
index 35eafef5..3c2e6cb2 100644
--- a/bin/cp.pl
+++ b/bin/cp.pl
@@ -371,7 +371,6 @@ sub payments_header {
 }
 
 sub invoices_due {
-
     @column_index =
       qw(name invnumber transdate amount due checked paid memo source);
     push @column_index, "language" if $form->{selectlanguage};
@@ -716,7 +715,8 @@ sub update_payments {
 
         for (qw(amount due paid)) {
             $form->{"${_}_$i"} =
-              $form->format_amount( \%myconfig, $form->{"${_}_$i"}, 2 );
+              $form->format_amount( \%myconfig, $form->{"${_}_$i"}, 2 )
+		if $form->{"${_}_$i"};
         }
     }
 
@@ -892,7 +892,8 @@ qq|$form->{"all_$form->{vc}"}[0]->{name}--$form->{"all_$form->{vc}"}[0]->{id}|;
 
         for (qw(amount due paid)) {
             $form->{"${_}_$i"} =
-              $form->format_amount( \%myconfig, $form->{"${_}_$i"}, 2 );
+              $form->format_amount( \%myconfig, $form->{"${_}_$i"}, 2 )
+		if $form->{"${_}_$i"};
         }
     }