|
Lines 528-546
is( scalar( @$messages ), 1, 'The message has been queued for the expected patro
Link Here
|
| 528 |
is( $messages->[0]{to_address}, $email, 'AutoEmailPrimaryAddress=OFF, EnqueueLetter used the patron email address if no to_address is given in parameter' ); |
528 |
is( $messages->[0]{to_address}, $email, 'AutoEmailPrimaryAddress=OFF, EnqueueLetter used the patron email address if no to_address is given in parameter' ); |
| 529 |
|
529 |
|
| 530 |
$dbh->do(q|DELETE FROM message_queue|); |
530 |
$dbh->do(q|DELETE FROM message_queue|); |
| 531 |
t::lib::Mocks::mock_preference('AutoEmailPrimaryAddress', 'email|OFF|emailpro'); # This is no consistent. OFF should be alone. |
531 |
t::lib::Mocks::mock_preference('AutoEmailPrimaryAddress', 'email,OFF,emailpro'); # This is no consistent. OFF should be alone. |
| 532 |
is( C4::Letters::EnqueueLetter($my_message), 1, 'message successfully queued' ); |
532 |
is( C4::Letters::EnqueueLetter($my_message), 1, 'message successfully queued' ); |
| 533 |
$messages = C4::Letters::GetQueuedMessages({ borrowernumber => $borrowernumber }); |
533 |
$messages = C4::Letters::GetQueuedMessages({ borrowernumber => $borrowernumber }); |
| 534 |
is( scalar( @$messages ), 1, 'The message has been queued for the expected patron' ); |
534 |
is( scalar( @$messages ), 1, 'The message has been queued for the expected patron' ); |
| 535 |
is( $messages->[0]{to_address}, $email, 'AutoEmailPrimaryAddress=email|OFF|emailpro, EnqueueLetter used the patron email address if no to_address is given in parameter' ); |
535 |
is( $messages->[0]{to_address}, $email, 'AutoEmailPrimaryAddress=email,OFF,emailpro, EnqueueLetter used the patron email address if no to_address is given in parameter' ); |
| 536 |
|
536 |
|
| 537 |
$dbh->do(q|DELETE FROM message_queue|); |
537 |
$dbh->do(q|DELETE FROM message_queue|); |
| 538 |
t::lib::Mocks::mock_preference('AutoEmailPrimaryAddress', 'email|emailpro'); |
538 |
t::lib::Mocks::mock_preference('AutoEmailPrimaryAddress', 'email,emailpro'); |
| 539 |
is( C4::Letters::EnqueueLetter($my_message), 2, 'messages successfully queued' ); |
539 |
is( C4::Letters::EnqueueLetter($my_message), 2, 'messages successfully queued' ); |
| 540 |
$messages = C4::Letters::GetQueuedMessages({ borrowernumber => $borrowernumber }); |
540 |
$messages = C4::Letters::GetQueuedMessages({ borrowernumber => $borrowernumber }); |
| 541 |
is( scalar( @$messages ), 2, 'The messages have been queued for the expected patron' ); |
541 |
is( scalar( @$messages ), 2, 'The messages have been queued for the expected patron' ); |
| 542 |
is( $messages->[0]{to_address}, $email, 'AutoEmailPrimaryAddress=email|emailpro, EnqueueLetter used the patron email address for the first letter' ); |
542 |
is( $messages->[0]{to_address}, $email, 'AutoEmailPrimaryAddress=email,emailpro, EnqueueLetter used the patron email address for the first letter' ); |
| 543 |
is( $messages->[1]{to_address}, $emailpro, 'AutoEmailPrimaryAddress=email|emailpro, EnqueueLetter used the patron emailpro address for the second letter' ); |
543 |
is( $messages->[1]{to_address}, $emailpro, 'AutoEmailPrimaryAddress=email,emailpro, EnqueueLetter used the patron emailpro address for the second letter' ); |
| 544 |
|
544 |
|
| 545 |
{ |
545 |
{ |
| 546 |
use C4::Serials; |
546 |
use C4::Serials; |
| 547 |
- |
|
|