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' => '0',
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 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
- 

Return to bug 24588