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

(-)a/basket/sendbasket.pl (-1 / +1 lines)
Lines 112-118 if ( $email_add ) { Link Here
112
    if ( $template_res =~ /<SUBJECT>(.*)<END_SUBJECT>/s ) {
112
    if ( $template_res =~ /<SUBJECT>(.*)<END_SUBJECT>/s ) {
113
        $mail{subject} = $1;
113
        $mail{subject} = $1;
114
        $mail{subject} =~ s|\n?(.*)\n?|$1|;
114
        $mail{subject} =~ s|\n?(.*)\n?|$1|;
115
        $mail{subject} = Encode::encode("UTF-8", $mail{subject});
115
        $mail{subject} = encode('MIME-Header',$mail{subject});
116
    }
116
    }
117
    else { $mail{'subject'} = "no subject"; }
117
    else { $mail{'subject'} = "no subject"; }
118
118
(-)a/opac/opac-sendbasket.pl (-1 / +1 lines)
Lines 133-139 if ( $email_add ) { Link Here
133
    if ( $template_res =~ /<SUBJECT>(.*)<END_SUBJECT>/s ) {
133
    if ( $template_res =~ /<SUBJECT>(.*)<END_SUBJECT>/s ) {
134
        $mail{subject} = $1;
134
        $mail{subject} = $1;
135
        $mail{subject} =~ s|\n?(.*)\n?|$1|;
135
        $mail{subject} =~ s|\n?(.*)\n?|$1|;
136
        $mail{subject} = Encode::encode("UTF-8", $mail{subject});
136
        $mail{subject} = encode('MIME-Header',$mail{subject});
137
    }
137
    }
138
    else { $mail{'subject'} = "no subject"; }
138
    else { $mail{'subject'} = "no subject"; }
139
139
(-)a/opac/opac-sendshelf.pl (-1 / +1 lines)
Lines 136-142 if ( $email ) { Link Here
136
        $mail{subject} =~ s|\n?(.*)\n?|$1|;
136
        $mail{subject} =~ s|\n?(.*)\n?|$1|;
137
    }
137
    }
138
    else { $mail{'subject'} = "no subject"; }
138
    else { $mail{'subject'} = "no subject"; }
139
    $mail{subject} = Encode::encode("UTF-8", $mail{subject});
139
    $mail{subject} = encode('MIME-Header', $mail{subject});
140
140
141
    my $email_header = "";
141
    my $email_header = "";
142
    if ( $template_res =~ /<HEADER>(.*)<END_HEADER>/s ) {
142
    if ( $template_res =~ /<HEADER>(.*)<END_HEADER>/s ) {
(-)a/virtualshelves/sendshelf.pl (-2 / +1 lines)
Lines 113-119 if ($email) { Link Here
113
113
114
    # Analysing information and getting mail properties
114
    # Analysing information and getting mail properties
115
    if ( $template_res =~ /<SUBJECT>(.*)<END_SUBJECT>/s ) {
115
    if ( $template_res =~ /<SUBJECT>(.*)<END_SUBJECT>/s ) {
116
        $mail{'subject'} = Encode::encode("UTF-8", $1);
116
        $mail{'subject'} = encode('MIME-Header', $1);
117
        $mail{subject} =~ s|\n?(.*)\n?|$1|;
117
        $mail{subject} =~ s|\n?(.*)\n?|$1|;
118
    }
118
    }
119
    else { $mail{'subject'} = "no subject"; }
119
    else { $mail{'subject'} = "no subject"; }
120
- 

Return to bug 21874