|
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 |
|