SL/Helper/MassPrintCreatePDF.pm

   1 package SL::Helper::MassPrintCreatePDF;
   2
   3 use strict;
   4
   5 use Exporter 'import';
   6 our @EXPORT_OK = qw(create_massprint_pdf merge_massprint_pdf create_pdfs print_pdfs);
   7 our %EXPORT_TAGS = (
   8   all => \@EXPORT_OK,
   9 );
  10 use SL::Helper::CreatePDF qw(:all);
  11 use SL::Helper::File qw(store_pdf append_general_pdf_attachments);
  12
  13 sub create_pdfs {
  14   my ($self, %params) = @_;
  15   my @pdf_file_names;
  16   foreach my $document (@{ $params{documents} }) {
  17     $params{document} = $document;
  18     push @pdf_file_names, $self->create_massprint_pdf(%params);
  19   }
  20
  21   return @pdf_file_names;
  22 }
  23
  24 sub create_massprint_pdf {
  25   my ($self, %params) = @_;
  26   my $form = Form->new('');
  27   my %create_params = (
  28       variables => $form,
  29       return    => 'file_name',
  30   );
  31   ## find_template may return a list !
  32   $create_params{template} = $self->find_template(name => $params{variables}->{formname}, printer_id => $params{printer_id});
  33   $form->{cwd}= POSIX::getcwd();
  34
  35   $form->{$_} = $params{variables}->{$_} for keys %{ $params{variables} };
  36
  37   $create_params{variable_content_types} = $form->get_variable_content_types();
  38   $params{document}->flatten_to_form($form, format_amounts => 1);
  39   # flatten_to_form sets payment_terms from customer/vendor - we do not want that here
  40   # really ??
  41   delete $form->{payment_terms} if !$form->{payment_id};
  42
  43   $form->prepare_for_printing;
  44   $form->{attachment_filename} = $form->generate_attachment_filename;
  45
  46   my $pdf_filename = $self->create_pdf(%create_params);
  47
  48   if ( $::instance_conf->get_doc_storage && ! $form->{preview}) {
  49     $self->append_general_pdf_attachments(filepath => $pdf_filename, type => $form->{type} );
  50     $form->{tmpfile} = $pdf_filename;
  51     $form->{id}      = $params{document}->id;
  52     $self->store_pdf($form);
  53   }
  54   $form->{id} = $params{document}->id;
  55   if ( ! $form->{preview} ) {
  56     if ( ref($params{document}) eq 'SL::DB::DeliveryOrder' ) {
  57       $form->{snumbers} = "ordnumber_" . $params{document}->donumber;
  58     }
  59     else {
  60       $form->{snumbers} = "unknown";
  61     }
  62     $form->{addition} = "PRINTED";
  63     $form->{what_done} = $::form->{type};
  64     $form->save_history;
  65   }
  66   return $pdf_filename;
  67 }
  68
  69 sub merge_massprint_pdf {
  70   my ($self, %params)     = @_;
  71   return unless $params{file_names} && $params{type};
  72
  73   my $job_obj = $self->{job_obj};
  74   my $data    = $job_obj->data_as_hash;
  75   my @pdf_file_names = @{$params{file_names}};
  76
  77   eval {
  78     my $file_name = 'mass_'.$params{type}.'_'.$job_obj->id . '.pdf';
  79     my $sfile     = SL::SessionFile->new($file_name, mode => 'w', session_id => $data->{session_id});
  80     $sfile->fh->close;
  81     $data->{pdf_file_name} = $sfile->file_name;
  82
  83     $self->merge_pdfs(file_names => \@pdf_file_names, bothsided => $data->{bothsided}, out_path => $data->{pdf_file_name});
  84     unlink @pdf_file_names;
  85
  86     1;
  87
  88   } or do {
  89     push @{ $data->{print_errors} }, { message => $@ };
  90   };
  91
  92   $job_obj->update_attributes(data_as_hash => $data);
  93 }
  94
  95 sub print_pdfs {
  96   my ($self)     = @_;
  97
  98   my $job_obj         = $self->{job_obj};
  99   my $data            = $job_obj->data_as_hash;
 100   my $printer_id      = $data->{printer_id};
 101   my $copy_printer_id = $data->{copy_printer_id};
 102
 103   return if !$printer_id;
 104
 105   my $out;
 106
 107   foreach  my $local_printer_id ($printer_id, $copy_printer_id) {
 108     next unless $local_printer_id;
 109     SL::DB::Printer
 110       ->new(id => $local_printer_id)
 111       ->load
 112       ->print_document(file_name => $data->{pdf_file_name});
 113   }
 114
 115 }
 116
 117 1;
 118
 119 __END__
 120
 121 =encoding utf-8
 122
 123 =head1 NAME
 124
 125 SL::Helper::MassPrint_CreatePDF
 126
 127
 128 =head1 DESCRIPTION
 129
 130 This Helper used bei Background Processing for Mass Printing.
 131 The redundant way to fill data for createPDF is concentrated into this helper.
 132 There are some additional settings for printing which are missed in CreatePDF Helper
 133 and also the appending of generic PDF-Documents.
 134
 135 (This extension may be included in the CreatePDF Helper).
 136
 137
 138 =head1 REQUIRES
 139
 140 L<SL::Helper::CreatePDF>
 141
 142 =head1 METHODS
 143
 144 =head2 C<create_massprint_pdf PARAMS>
 145
 146 a tempory $form is used to set
 147
 148 =over 2
 149
 150 =item 1. content types
 151
 152 =item 2. flatten_to_form
 153
 154 =item 3. prepare_for_printing
 155
 156 =item 4. set history
 157
 158 =back
 159
 160 before printing is done
 161
 162
 163 =head1 AUTHOR
 164
 165 Martin Helmling E<lt>martin.helmling@opendynamic.deE<gt>
 166
 167
 168 =cut
 169