summaryrefslogtreecommitdiff
path: root/bin/cp.pl
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2008-01-20 04:08:23 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2008-01-20 04:08:23 +0000
commitde9f9067cffc52c9ef818237bc52e77aa9f8b4be (patch)
tree0ef5642f7d33fc541bca12647718702368546393 /bin/cp.pl
parentab7369d8a2a2605f2adbca0f1689b84f9d394cd4 (diff)
Fixing bug 1844159: Vendor Info Incorrectly Escaped in Check Printing Module
Fixing bug 1849585: Serial numbers not preserved on order consolidation git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@2056 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'bin/cp.pl')
-rwxr-xr-xbin/cp.pl10
1 files changed, 5 insertions, 5 deletions
diff --git a/bin/cp.pl b/bin/cp.pl
index 4c9b1c86..356bc7af 100755
--- a/bin/cp.pl
+++ b/bin/cp.pl
@@ -1392,11 +1392,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;
@@ -1464,6 +1459,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";