- $self->export_letter_to_form($letter);
- $::form->{formname} = "letter";
- $::form->{type} = "letter";
- $::form->{format} = "pdf";
-
- my $language_saved = $::form->{language_id};
- my $greeting_saved = $::form->{greeting};
- my $cp_id_saved = $::form->{cp_id};
-
- $::form->{customer_id} = $self->letter->vc_id;
- IS->customer_details(\%::myconfig, $::form);
-
- if (!$cp_id_saved) {
- # No contact was selected. Delete all contact variables because
- # IS->customer_details() and IR->vendor_details() get the default
- # contact anyway.
- map({ delete($::form->{$_}); } grep(/^cp_/, keys(%{ $::form })));
- }
-
- $::form->{greeting} = $greeting_saved;
- $::form->{language_id} = $language_saved;
-
- if ($::form->{cp_id}) {
- CT->get_contact(\%::myconfig, $::form);
- }
-
- $::form->{cp_contact_formal} = ($::form->{cp_greeting} ? "$::form->{cp_greeting} " : '') . ($::form->{cp_givenname} ? "$::form->{cp_givenname} " : '') . $::form->{cp_name};
-
- $::form->get_employee_data('prefix' => 'employee', 'id' => $letter->{employee_id});
- $::form->get_employee_data('prefix' => 'salesman', 'id' => $letter->{salesman_id});
-