TopQuickSearch: GL controller kann weg

[mfinanz.git] / SL / Controller / Letter.pm

diff --git a/SL/Controller/Letter.pm b/SL/Controller/Letter.pm
index 90fd26b8926f7afbab41e4b08504ef42f6546c2f..2af59b07d84ebdbf36f86366e98f55d7751d9355 100644 (file)
--- 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 strict;
 use parent qw(SL::Controller::Base);
 

+use Carp;

 use POSIX qw(strftime);
 use SL::Controller::Helper::GetModels;
 use SL::Controller::Helper::ReportGenerator;
 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;
 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";
 
   $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};
 
 
   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) {
   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',
     template  => $template_file,
     variables => $::form,
     return    => 'file_name',

+    variable_content_types => {
+      body                 => 'html',
+    },

   );
 
   my $pdf_file_name;
   );
 
   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';
       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;
 
       my $attachment_name =  $::form->generate_attachment_filename;
       $attachment_name    =~ s:.*//::g;
 


@@ -301,6 +309,8 @@ sub action_delete_drafts {
 sub _display {
   my ($self, %params) = @_;
 
 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');
   my $letter = $self->letter;
 
  $params{title} ||= t8('Edit Letter');


@@ -542,13 +552,7 @@ sub init_models {
   SL::Controller::Helper::GetModels->new(
     controller   => $self,
     model        => 'Letter',
   SL::Controller::Helper::GetModels->new(
     controller   => $self,
     model        => 'Letter',

-    sorted       => {
-      _default     => {
-        by           => 'letternumber',
-        dir          => 1,
-      },
-      %sort_columns,
-    },
+    sorted       => \%sort_columns,

     with_objects => [ 'contact', 'salesman', 'employee' ],
   );
 }
     with_objects => [ 'contact', 'salesman', 'employee' ],
   );
 }