From e8f29fc05457d44bee8b197156001f05256296ed Mon Sep 17 00:00:00 2001 From: einhverfr Date: Wed, 12 Sep 2007 07:00:51 +0000 Subject: Fixing payment screen to work with new is_nan checks. git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1575 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/cp.pl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'bin') diff --git a/bin/cp.pl b/bin/cp.pl index ff3a1cca..8dc10f06 100755 --- a/bin/cp.pl +++ b/bin/cp.pl @@ -370,7 +370,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}; @@ -715,7 +714,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"}; } } @@ -891,7 +891,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"}; } } -- cgit v1.2.3