X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/0bfbcce6e77e0f9d83e4f54f3fe9da7edcc866f3..02752d70d3760e6761ae40f7a3b83181e9cd782c:/SL/Helper/File.pm

diff --git a/SL/Helper/File.pm b/SL/Helper/File.pm
index 7b31ebdd6..d59fb56ac 100644
--- a/SL/Helper/File.pm
+++ b/SL/Helper/File.pm
@@ -11,7 +11,8 @@ sub store_pdf {
   my ($self, $form) = @_;
   return unless $::instance_conf->get_doc_storage;
   my $type = $form->{type};
-  $type = $form->{formname} if $form->{formname} && !$form->{type};
+  $type = $form->{formname}        if $form->{formname} && !$form->{type};
+  $type = $form->{attachment_type} if $form->{attachment_type};
   my $id = $form->{id};
   $id = $form->{attachment_id} if $form->{attachment_id} && !$form->{id};
   return if !$id || !$type;
@@ -80,7 +81,10 @@ SL::Helper::File - Helper for $::Form to store generated PDF-Documents
 
  $self->store_pdf($self);
 
- $self->append_general_pdf_attachments($self) if ( $ext_for_format eq 'pdf' );
+ $self->append_general_pdf_attachments(filepath => $pdf_filename, type => $form->{type}) if ( $ext_for_format eq 'pdf' );
+
+#It is also used in MassPrint Helper
+#
 
 =head1 DESCRIPTION
 
@@ -148,4 +152,3 @@ Martin Helmling E<lt>martin.helmling@opendynamic.deE<gt>
 
 
 =cut
-