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

(-)a/C4/Letters.pm (-1 / +1 lines)
Lines 1324-1330 sub _send_message_by_email { Link Here
1324 

          1324
          

        

        

          1325
          
    $sendmail_params{'Auth'} = {user => $username, pass => $password, method => $method} if $username;

          1325
          
    $sendmail_params{'Auth'} = {user => $username, pass => $password, method => $method} if $username;

        

        

          1326
          

          1326
          

        

          
            

              1327
              
    _update_message_to_address($message->{'message_id'},$sendmail_params{To}) if $message->{to_address} ne $sendmail_params{To}; #if initial message address was empty, coming here means that a to address was found and queue should be updated; same if to address was overriden by create_message_headers


              1327
              
    _update_message_to_address($message->{'message_id'},$sendmail_params{To}) if !$message->{to_address} || $message->{to_address} ne $sendmail_params{To}; #if initial message address was empty, coming here means that a to address was found and queue should be updated; same if to address was overriden by create_message_headers

            

        

          1328
          

          1328
          

        

        

          1329
          
    if ( Mail::Sendmail::sendmail( %sendmail_params ) ) {

          1329
          
    if ( Mail::Sendmail::sendmail( %sendmail_params ) ) {

        

        

          1330
          
        _set_message_status( { message_id => $message->{'message_id'},

          1330
          
        _set_message_status( { message_id => $message->{'message_id'},

        



(-)a/t/db_dependent/Letters.t
      (-2 / +1 lines)




  

    
      
            Lines 18-24
          
      
      
        Link Here
      
    
  

        

          18
          
# along with Koha; if not, see <http://www.gnu.org/licenses>.

          18
          
# along with Koha; if not, see <http://www.gnu.org/licenses>.

        

        

          19
          

          19
          

        

        

          20
          
use Modern::Perl;

          20
          
use Modern::Perl;

        

          
            

              21
              
use Test::More tests => 67;


              21
              
use Test::More tests => 69;

            

        

          22
          
use Test::MockModule;

          22
          
use Test::MockModule;

        

        

          23
          
use Test::Warn;

          23
          
use Test::Warn;

        

        

          24
          

          24
          

        

            

              25
              
- 

              
              
            






  

  Return to bug 8000