View | Details | Raw Unified | Return to bug 24588
Collapse All | Expand All

(-)a/Koha/Email.pm (+3 lines)
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;
(-)a/cpanfile (-1 / +1 lines)
Lines 36-41 requires 'DateTime::TimeZone', '1.20'; Link Here
36
requires 'Digest::MD5', '2.36';
36
requires 'Digest::MD5', '2.36';
37
requires 'Digest::SHA', '5.43';
37
requires 'Digest::SHA', '5.43';
38
requires 'Email::Date', '1.103';
38
requires 'Email::Date', '1.103';
39
requires 'Email::MessageID', '1.406';
39
requires 'Email::Valid', '0.190';
40
requires 'Email::Valid', '0.190';
40
requires 'Exception::Class', '1.38';
41
requires 'Exception::Class', '1.38';
41
requires 'File::Slurp', '9999.13';
42
requires 'File::Slurp', '9999.13';
42
- 

Return to bug 24588