Lines 57-63
Link Here
|
57 |
my $user_email = GetFirstValidEmailAddress($borrowernumber) |
57 |
my $user_email = GetFirstValidEmailAddress($borrowernumber) |
58 |
|| C4::Context->preference('KohaAdminEmailAddress'); |
58 |
|| C4::Context->preference('KohaAdminEmailAddress'); |
59 |
|
59 |
|
60 |
my $email_replyto = "$user->{firstname} $user->{surname} <$user_email>"; |
60 |
my $email_replyto = Encode::encode("MIME-Q","$user->{firstname} $user->{surname} <$user_email>"); |
61 |
my $comment = $query->param('comment'); |
61 |
my $comment = $query->param('comment'); |
62 |
|
62 |
|
63 |
# if you want to use the KohaAdmin address as from, that is the default no need to set it |
63 |
# if you want to use the KohaAdmin address as from, that is the default no need to set it |
Lines 129-135
Link Here
|
129 |
if ( $template_res =~ /<SUBJECT>(.*)<END_SUBJECT>/s ) { |
129 |
if ( $template_res =~ /<SUBJECT>(.*)<END_SUBJECT>/s ) { |
130 |
$mail{subject} = $1; |
130 |
$mail{subject} = $1; |
131 |
$mail{subject} =~ s|\n?(.*)\n?|$1|; |
131 |
$mail{subject} =~ s|\n?(.*)\n?|$1|; |
132 |
$mail{subject} = Encode::encode("UTF-8", $mail{subject}); |
132 |
$mail{subject} = Encode::encode("MIME-Q", $mail{subject}); |
133 |
} |
133 |
} |
134 |
else { $mail{'subject'} = "no subject"; } |
134 |
else { $mail{'subject'} = "no subject"; } |
135 |
|
135 |
|