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