Merge branch 'b-3.6.1' into mebil

[mfinanz.git] / SL / Helper / File.pm

diff --git a/SL/Helper/File.pm b/SL/Helper/File.pm
index 96901184b03bee8f0b67fd12a8e1aac58a864a51..e658b05e949a7d8f15ed77f931ddac530adcbe6e 100644 (file)
--- a/SL/Helper/File.pm
+++ b/SL/Helper/File.pm
@@ -25,13 +25,14 @@ sub store_pdf {
   return if !$id || !$type;
 
   SL::File->save(
-    object_id   => $id,
-    object_type => $type,
-    mime_type   => 'application/pdf',
-    source      => 'created',
-    file_type   => 'document',
-    file_name   => $form->{attachment_filename},
-    file_path   => $form->{tmpfile},
+    object_id     => $id,
+    object_type   => $type,
+    mime_type     => 'application/pdf',
+    source        => 'created',
+    file_type     => 'document',
+    file_name     => $form->{attachment_filename},
+    file_path     => $form->{tmpfile},
+    print_variant => $form->{formname},
   );
 }