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