From bdbe2ca0e36dfa79dc45b0259650c001639834a0 Mon Sep 17 00:00:00 2001 From: "Martin Helmling martin.helmling@octosoft.eu" Date: Thu, 27 Apr 2017 10:36:36 +0200 Subject: [PATCH] PDFs werden nicht mehr bei wiederkehrenden Rechnung per E-Mail erzeugt/angehangen fix redmine #238 --- SL/BackgroundJob/CreatePeriodicInvoices.pm | 2 +- SL/Mailer.pm | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/SL/BackgroundJob/CreatePeriodicInvoices.pm b/SL/BackgroundJob/CreatePeriodicInvoices.pm index c8b16ab4b..055dd16f4 100644 --- a/SL/BackgroundJob/CreatePeriodicInvoices.pm +++ b/SL/BackgroundJob/CreatePeriodicInvoices.pm @@ -404,7 +404,7 @@ sub _email_invoice { $mail->{subject} = $data->{config}->email_subject; $mail->{message} = $data->{config}->email_body; $mail->{attachments} = [{ - filename => $pdf_file_name, + path => $pdf_file_name, name => sprintf('%s %s.pdf', $::locale->text('Invoice'), $data->{invoice}->invnumber), }]; diff --git a/SL/Mailer.pm b/SL/Mailer.pm index c8fe0f2a4..0a2715cb2 100644 --- a/SL/Mailer.pm +++ b/SL/Mailer.pm @@ -162,7 +162,7 @@ sub _create_attachment_part { $attachment_content ||= ' '; $attributes{charset} = $self->{charset} if $self->{charset} && ($attributes{content_type} =~ m{^text/}); - $::lxdebug->message(LXDebug->DEBUG2(), "mail6 mtype=" . $attributes{Type} . " filename=" . $attributes{Filename}); + $::lxdebug->message(LXDebug->DEBUG2(), "mail6 mtype=" . $attributes{content_type} . " filename=" . $attributes{filename}); my $ent; if ( $attributes{content_type} eq 'message/rfc822' ) { @@ -247,6 +247,7 @@ sub send { #$::lxdebug->message(0, "message: " . $email->as_string); # return "boom"; + $::lxdebug->message(LXDebug->DEBUG2(), "mail1 from=".$self->{from}." to=".$self->{to}); my $from_obj = (Email::Address->parse($self->{from}))[0]; $self->{driver}->start_mail(from => $from_obj->address, to => [ $self->_all_recipients ]); -- 2.20.1