From 87e4ad1f18ef4cf743e0bd41c15797c0a36a57bb Mon Sep 17 00:00:00 2001 From: einhverfr Date: Sun, 20 Jan 2008 04:09:17 +0000 Subject: Merging applicable bugfixes from svn branches/1.2 svn rev 2056 git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2057 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/cp.pl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/bin/cp.pl b/bin/cp.pl index 3c2e6cb2..c2836221 100644 --- a/bin/cp.pl +++ b/bin/cp.pl @@ -1393,11 +1393,6 @@ sub print_payments { %oldform = (); for ( keys %$form ) { $oldform{$_} = $form->{$_} } - @a = - qw(name company address text_amount text_decimal address1 address2 city state zipcode country memo); - for (@a) { $temp{$_} = $form->{$_} } - - $form->format_string(@a); $ok = 0; $j = 0; @@ -1465,6 +1460,11 @@ sub print_form { ( $form->{yyyy}, $form->{mm}, $form->{dd} ) = $datepaid =~ /(....)(..)(..)/; &{"$form->{vc}_details"}; + @a = + qw(name company address text_amount text_decimal address1 address2 city state zipcode country memo); + for (@a) { $temp{$_} = $form->{$_} } + + $form->format_string(@a); $form->{templates} = "$myconfig{templates}"; $form->{IN} = "$form->{formname}.tex"; -- cgit v1.2.3