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

(-)opac-sendbasket.pl (-2 / +2 lines)
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

Return to bug 13245