Lines 18-23
Link Here
|
18 |
package Koha::Email; |
18 |
package Koha::Email; |
19 |
|
19 |
|
20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
|
|
21 |
use Email::MessageID; |
21 |
|
22 |
|
22 |
use base qw(Class::Accessor); |
23 |
use base qw(Class::Accessor); |
23 |
use C4::Context; |
24 |
use C4::Context; |
Lines 60-65
sub create_message_headers {
Link Here
|
60 |
$mail{'Message'} = $params->{message} if $params->{message}; |
61 |
$mail{'Message'} = $params->{message} if $params->{message}; |
61 |
$mail{'Subject'} = $params->{subject} if $params->{subject}; |
62 |
$mail{'Subject'} = $params->{subject} if $params->{subject}; |
62 |
$mail{'Content-Type'} = $params->{contenttype} if $params->{contenttype}; |
63 |
$mail{'Content-Type'} = $params->{contenttype} if $params->{contenttype}; |
|
|
64 |
$mail{'X-Mailer'} = "Koha"; |
65 |
$mail{'Message-ID'} = Email::MessageID->new->in_brackets; |
63 |
return %mail; |
66 |
return %mail; |
64 |
} |
67 |
} |
65 |
1; |
68 |
1; |
66 |
- |
|
|