diff options
| -rw-r--r-- | bin/cp.pl | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -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"; |