| 
      
            Lines 1247-1256
          sub _add_attachments {
      
      
        Link Here
      
     | 
  
        
          | 1247 | 
                  $message->text_body( $letter->{content} ); | 
          1247 | 
                  $message->text_body( $letter->{content} ); | 
        
        
          | 1248 | 
              }  | 
          1248 | 
              }  | 
        
        
          | 1249 | 
           | 
          1249 | 
           | 
        
          
            
              | 1250 | 
                  foreach my $attachment ( @$attachments ) { | 
              1250 | 
                  foreach my $attachment (@$attachments) { | 
            
        
          | 1251 | 
                  $message->attach(  | 
          1251 | 
                  $message->attach(  | 
        
        
          | 1252 | 
                      Encode::encode( "UTF-8", $attachment->{content} ), | 
          1252 | 
                      Encode::encode( "UTF-8", $attachment->{content} ), | 
        
          
            
              | 1253 | 
                          content_type => 'application/octet-stream',  | 
              1253 | 
                          content_type => ( exists $attachment->{type} && $attachment->{type} ne '' ) ? $attachment->{type} : 'application/octet-stream', | 
            
        
          | 1254 | 
                      name         => $attachment->{filename}, | 
          1254 | 
                      name         => $attachment->{filename}, | 
        
        
          | 1255 | 
                      disposition  => 'attachment',  | 
          1255 | 
                      disposition  => 'attachment',  | 
        
        
          | 1256 | 
                  );  | 
          1256 | 
                  );  | 
        
            
              | 1257 | 
              -   | 
               | 
               |