Revert "Anpassungen an neues SL::File::Object Interface"

[mfinanz.git] / SL / Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 5424a7c923cbd2e6812b59471d953208c058ddeb..644b9dbead7a36222070f265990105ef14216533 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1212,9 +1212,9 @@ sub send_email {
       }
     }
     foreach my $attfile ( @attfiles ) {
-      push @{ $mail->{attachments} }, { path => $attfile->get_file,
+      push @{ $mail->{attachments} }, { path => SL::File->get_file_path(dbfile => $attfile),
                                         id   => $attfile->id,
-                                        type => $attfile->mime_type,
+                                        type => $attfile->file_mime_type,
                                         name => $attfile->file_name };
     }
   }