X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/a5d4818cb7437683707f042b99cbecff27ce6799..d4c5ff04f33e7fe29e079c4489c4126a7ea2493c:/SL/Helper/MassPrintCreatePDF.pm

diff --git a/SL/Helper/MassPrintCreatePDF.pm b/SL/Helper/MassPrintCreatePDF.pm
index 1117c4fe5..be80a69d4 100644
--- a/SL/Helper/MassPrintCreatePDF.pm
+++ b/SL/Helper/MassPrintCreatePDF.pm
@@ -25,8 +25,9 @@ sub create_massprint_pdf {
   my ($self, %params) = @_;
   my $form = Form->new('');
   my %create_params = (
-      variables => $form,
-      return    => 'file_name',
+    variables => $form,
+    record    => $params{document},
+    return    => 'file_name',
   );
   ## find_template may return a list !
   $create_params{template} = $self->find_template(name => $params{variables}->{formname}, printer_id => $params{printer_id});
@@ -44,6 +45,8 @@ sub create_massprint_pdf {
   }
 
   $form->prepare_for_printing;
+
+  $form->{language}            = '_' . $form->{language};
   $form->{attachment_filename} = $form->generate_attachment_filename;
 
   my $pdf_filename = $self->create_pdf(%create_params);