|
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 |
- |
|
|