1 # Copyright 2014 Catalyst
3 # This file is part of Koha.
5 # Koha is free software; you can redistribute it and/or modify it under the
6 # terms of the GNU General Public License as published by the Free Software
7 # Foundation; either version 3 of the License, or (at your option) any later
10 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
11 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
14 # You should have received a copy of the GNU General Public License along
15 # with Koha; if not, write to the Free Software Foundation, Inc.,
16 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
22 use base qw(Class::Accessor);
25 __PACKAGE__->mk_accessors(qw( ));
34 my $email = Koha::Email->new();
35 my %mail = $email->create_message_headers({ to => $to_address, from => $from_address,
36 replyto => $replyto });
42 sub create_message_headers {
45 $params->{from} ||= C4::Context->preference('KohaAdminEmailAddress');
46 $params->{charset} ||= 'utf8';
49 From => $params->{from},
50 charset => $params->{charset}
52 if ( C4::Context->preference('ReplytoDefault') ) {
53 $params->{replyto} ||= C4::Context->preference('ReplytoDefault');
55 if ( C4::Context->preference('ReturnpathDefault') ) {
56 $params->{sender} ||= C4::Context->preference('ReturnpathDefault');
58 $mail{'Reply-to'} = $params->{replyto} if $params->{replyto};
59 $mail{'Sender'} = $params->{sender} if $params->{sender};
60 $mail{'Message'} = $params->{message} if $params->{message};
61 $mail{'Subject'} = $params->{subject} if $params->{subject};
62 $mail{'Content-Type'} = $params->{contenttype} if $params->{contenttype};