summaryrefslogtreecommitdiff
path: root/bin/cp.pl
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-09-12 07:00:51 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-09-12 07:00:51 +0000
commite8f29fc05457d44bee8b197156001f05256296ed (patch)
treeb6008e71bd0afe56e18420964be4fb5e47714bfc /bin/cp.pl
parent226c1c89054d6f8267f6115659262c7ddd345f8b (diff)
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
Diffstat (limited to 'bin/cp.pl')
-rwxr-xr-xbin/cp.pl7
1 files changed, 4 insertions, 3 deletions
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"};
}
}