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

(-)opac-sendshelf.pl (-1 / +1 lines)
Lines 149-155 Link Here
149
    if ( $template_res =~ /<MESSAGE>(.*)<END_MESSAGE>/s ) {
149
    if ( $template_res =~ /<MESSAGE>(.*)<END_MESSAGE>/s ) {
150
        $body = $1;
150
        $body = $1;
151
        $body =~ s|\n?(.*)\n?|$1|;
151
        $body =~ s|\n?(.*)\n?|$1|;
152
        $body = encode_qp(Encode::encode("UTF-8", $body));
152
        $body = encode_qp(Encode::encode("MIME-Q", $body));
153
    }
153
    }
154
154
155
    my $boundary = "====" . time() . "====";
155
    my $boundary = "====" . time() . "====";

Return to bug 13245