Lines 19-24
package Koha::Email;
Link Here
|
19 |
|
19 |
|
20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
21 |
use Email::Valid; |
21 |
use Email::Valid; |
|
|
22 |
use Email::MessageID; |
22 |
|
23 |
|
23 |
use base qw(Class::Accessor); |
24 |
use base qw(Class::Accessor); |
24 |
use C4::Context; |
25 |
use C4::Context; |
Lines 70-75
sub create_message_headers {
Link Here
|
70 |
$mail{'Message'} = $params->{message} if $params->{message}; |
71 |
$mail{'Message'} = $params->{message} if $params->{message}; |
71 |
$mail{'Subject'} = $params->{subject} if $params->{subject}; |
72 |
$mail{'Subject'} = $params->{subject} if $params->{subject}; |
72 |
$mail{'Content-Type'} = $params->{contenttype} if $params->{contenttype}; |
73 |
$mail{'Content-Type'} = $params->{contenttype} if $params->{contenttype}; |
|
|
74 |
$mail{'X-Mailer'} = "Koha"; |
75 |
$mail{'Message-ID'} = Email::MessageID->new->in_brackets; |
73 |
return %mail; |
76 |
return %mail; |
74 |
} |
77 |
} |
75 |
1; |
78 |
1; |
76 |
- |
|
|