X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/10d6fe63ec82e50322a1fe08902fde7a0c1efa4e..94b95494e61dc6403e20c3a3898d37aa21e1e1c3:/SL/Controller/Letter.pm diff --git a/SL/Controller/Letter.pm b/SL/Controller/Letter.pm index 0f1a40f5f..2af59b07d 100644 --- a/SL/Controller/Letter.pm +++ b/SL/Controller/Letter.pm @@ -3,9 +3,11 @@ package SL::Controller::Letter; use strict; use parent qw(SL::Controller::Base); +use Carp; use POSIX qw(strftime); use SL::Controller::Helper::GetModels; use SL::Controller::Helper::ReportGenerator; +use SL::CT; use SL::DB::Letter; use SL::DB::LetterDraft; use SL::DB::Employee; @@ -174,12 +176,14 @@ sub action_print_letter { $self->export_letter_to_form($letter); $::form->{formname} = "letter"; - $::form->{format} = "pdf"; + $::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) { @@ -217,6 +221,9 @@ sub action_print_letter { template => $template_file, variables => $::form, return => 'file_name', + variable_content_types => { + body => 'html', + }, ); my $pdf_file_name; @@ -245,6 +252,7 @@ sub action_print_letter { my $file = IO::File->new($pdf_file_name, 'r') || croak("Cannot open file '$pdf_file_name'"); my $size = -s $pdf_file_name; my $content_type = 'application/pdf'; + $::form->{letternumber} = $self->letter->letternumber; my $attachment_name = $::form->generate_attachment_filename; $attachment_name =~ s:.*//::g; @@ -301,6 +309,8 @@ sub action_delete_drafts { sub _display { my ($self, %params) = @_; + $::request->{layout}->use_javascript("${_}.js") for qw(ckeditor/ckeditor ckeditor/adapters/jquery); + my $letter = $self->letter; $params{title} ||= t8('Edit Letter');