1 package SL::Helper::MassPrintCreatePDF;
6 our @EXPORT_OK = qw(create_massprint_pdf merge_massprint_pdf create_pdfs print_pdfs);
12 my ($self, %params) = @_;
14 foreach my $document (@{ $params{documents} }) {
15 $params{document} = $document;
16 push @pdf_file_names, $self->create_massprint_pdf(%params);
19 return @pdf_file_names;
22 sub create_massprint_pdf {
23 my ($self, %params) = @_;
24 my $form = Form->new('');
27 return => 'file_name',
29 ## find_template may return a list !
30 $create_params{template} = $self->find_template(name => $params{variables}->{formname}, printer_id => $params{printer_id});
31 $form->{cwd}= POSIX::getcwd();
33 $form->{$_} = $params{variables}->{$_} for keys %{ $params{variables} };
35 $create_params{variable_content_types} = $form->get_variable_content_types();
36 $params{document}->flatten_to_form($form, format_amounts => 1);
37 # flatten_to_form sets payment_terms from customer/vendor - we do not want that here
39 delete $form->{payment_terms} if !$form->{payment_id};
41 $form->prepare_for_printing;
42 $form->{attachment_filename} = $form->generate_attachment_filename;
44 my $pdf_filename = $self->create_pdf(%create_params);
46 if ( $::instance_conf->get_doc_storage && ! $form->{preview}) {
47 $self->append_general_pdf_attachments(filepath => $pdf_filename, type => $form->{type} );
48 $form->{tmpfile} = $pdf_filename;
49 $form->{id} = $params{document}->id;
50 $self->store_pdf($form);
52 $form->{id} = $params{document}->id;
53 if ( ! $form->{preview} ) {
54 if ( ref($params{document}) eq 'SL::DB::DeliveryOrder' ) {
55 $form->{snumbers} = "ordnumber_" . $params{document}->donumber;
58 $form->{snumbers} = "unknown";
60 $form->{addition} = "PRINTED";
61 $form->{what_done} = $::form->{type};
67 sub merge_massprint_pdf {
68 my ($self, %params) = @_;
69 return unless $params{file_names} && $params{type};
71 my $job_obj = $self->{job_obj};
72 my $data = $job_obj->data_as_hash;
73 my @pdf_file_names = @{$params{file_names}};
76 my $file_name = 'mass_'.$params{type}.'_'.$job_obj->id . '.pdf';
77 my $sfile = SL::SessionFile->new($file_name, mode => 'w', session_id => $data->{session_id});
79 $data->{pdf_file_name} = $sfile->file_name;
81 $self->merge_pdfs(file_names => \@pdf_file_names, bothsided => $data->{bothsided}, out_path => $data->{pdf_file_name});
82 unlink @pdf_file_names;
87 push @{ $data->{print_errors} }, { message => $@ };
90 $job_obj->update_attributes(data_as_hash => $data);
96 my $job_obj = $self->{job_obj};
97 my $data = $job_obj->data_as_hash;
98 my $printer_id = $data->{printer_id};
99 my $copy_printer_id = $data->{copy_printer_id};
101 return if !$printer_id;
105 foreach my $local_printer_id ($printer_id, $copy_printer_id) {
106 next unless $local_printer_id;
108 ->new(id => $local_printer_id)
110 ->print_document(file_name => $data->{pdf_file_name});
123 SL::Helper::MassPrint_CreatePDF
128 This Helper used bei Background Processing for Mass Printing.
129 The redundant way to fill data for createPDF is concentrated into this helper.
130 There are some additional settings for printing which are missed in CreatePDF Helper
131 and also the appending of generic PDF-Documents.
133 (This extension may be included in the CreatePDF Helper).
138 L<SL::Helper::CreatePDF>
142 =head2 C<create_massprint_pdf PARAMS>
144 a tempory $form is used to set
148 =item 1. content types
150 =item 2. flatten_to_form
152 =item 3. prepare_for_printing
158 before printing is done
163 Martin Helmling E<lt>martin.helmling@opendynamic.deE<gt>