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

(-)a/C4/Installer/PerlDependencies.pm (+5 lines)
Lines 104-109 our $PERL_DEPS = { Link Here
104
        'required' => '1',
104
        'required' => '1',
105
        'min_ver'  => '1.103'
105
        'min_ver'  => '1.103'
106
    },
106
    },
107
    'Email::MessageID' => {
108
        'usage'    => 'Core',
109
        'required' => '1',
110
        'min_ver'  => '1.406'
111
    },
107
    'Exception::Class' => {
112
    'Exception::Class' => {
108
        'usage'    => 'Core',
113
        'usage'    => 'Core',
109
        'required' => '1.38',
114
        'required' => '1.38',
(-)a/Koha/Email.pm (-1 / +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;
76
- 

Return to bug 24588