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

(-)a/basket/sendbasket.pl (-1 / +1 lines)
Lines 133-139 if ( $email_add ) { Link Here
133
    if ( $template_res =~ /<MESSAGE>(.*)<END_MESSAGE>/s ) {
133
    if ( $template_res =~ /<MESSAGE>(.*)<END_MESSAGE>/s ) {
134
        $body = $1;
134
        $body = $1;
135
        $body =~ s|\n?(.*)\n?|$1|;
135
        $body =~ s|\n?(.*)\n?|$1|;
136
        $body = encode("UTF-8", encode_qp($body));
136
        $body = encode_qp(Encode::encode("UTF-8", $body));
137
    }
137
    }
138
138
139
    my $boundary = "====" . time() . "====";
139
    my $boundary = "====" . time() . "====";
(-)a/opac/opac-sendbasket.pl (-1 / +1 lines)
Lines 149-155 if ( $email_add ) { 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("UTF-8", encode_qp($body));
152
        $body = encode_qp(Encode::encode("UTF-8", $body));
153
    }
153
    }
154
154
155
    $mail{body} = $body;
155
    $mail{body} = $body;
(-)a/opac/opac-sendshelf.pl (-2 / +2 lines)
Lines 21-27 use strict; Link Here
21
use warnings;
21
use warnings;
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use Encode;
24
use Encode qw( encode );
25
use Carp;
25
use Carp;
26
26
27
use Mail::Sendmail;
27
use Mail::Sendmail;
Lines 134-140 if ( $email ) { Link Here
134
        : "list.txt";
134
        : "list.txt";
135
135
136
    my ($body) = $template_res =~ /<MESSAGE>\n(.*)\n?<END_MESSAGE>/s;
136
    my ($body) = $template_res =~ /<MESSAGE>\n(.*)\n?<END_MESSAGE>/s;
137
    $body = encode_qp($body);
137
    $body = encode_qp(Encode::encode("UTF-8", $body));
138
138
139
    my $boundary = "====" . time() . "====";
139
    my $boundary = "====" . time() . "====";
140
140
(-)a/virtualshelves/sendshelf.pl (-3 / +2 lines)
Lines 21-27 use strict; Link Here
21
use warnings;
21
use warnings;
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use Encode qw(encode);
24
use Encode qw( encode );
25
use Carp;
25
use Carp;
26
26
27
use Mail::Sendmail;
27
use Mail::Sendmail;
Lines 131-137 if ( $email ) { Link Here
131
        $email_file = $1;
131
        $email_file = $1;
132
    }
132
    }
133
133
134
    if ( $template_res =~ /<MESSAGE>\n(.*)\n<END_MESSAGE>/s ) { $body = encode_qp($1); }
134
    if ( $template_res =~ /<MESSAGE>\n(.*)\n<END_MESSAGE>/s ) { $body = decode_qp(Encode::encode("UTF-8", $1)); }
135
135
136
    my $boundary = "====" . time() . "====";
136
    my $boundary = "====" . time() . "====";
137
137
138
- 

Return to bug 11944