From 5054aabeb0ffdb8a8184d49312b57c3c26c68422 Mon Sep 17 00:00:00 2001 From: Lucas Gass Date: Fri, 15 Aug 2025 15:45:59 +0000 Subject: [PATCH] Bug 39883: (follow-up) Retrieve messages by letter_code --- t/db_dependent/Suggestions.t | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/t/db_dependent/Suggestions.t b/t/db_dependent/Suggestions.t index d7d289f7f06..75cc4db883a 100755 --- a/t/db_dependent/Suggestions.t +++ b/t/db_dependent/Suggestions.t @@ -612,7 +612,7 @@ subtest 'EmailPurchaseSuggestions' => sub { # EmailPurchaseSuggestions set to disabled t::lib::Mocks::mock_preference( "EmailPurchaseSuggestions", "0" ); Koha::Suggestion->new($my_suggestion)->store; - my $newsuggestions_messages = C4::Letters::GetQueuedMessages( { borrowernumber => $borrowernumber } ); + my $newsuggestions_messages = C4::Letters::GetQueuedMessages( { letter_code => 'NEW_SUGGESTION' } ); is( @$newsuggestions_messages, 0, 'New suggestion does not send an email when EmailPurchaseSuggestions disabled' @@ -634,7 +634,7 @@ subtest 'EmailPurchaseSuggestions' => sub { Koha::Libraries->find('CPL')->update( { branchreplyto => 'branchemail@b.c' } ); Koha::Suggestion->new($my_suggestion)->store; - $newsuggestions_messages = C4::Letters::GetQueuedMessages( { borrowernumber => $borrowernumber } ); + $newsuggestions_messages = C4::Letters::GetQueuedMessages( { letter_code => 'NEW_SUGGESTION' } ); isnt( @$newsuggestions_messages, 0, 'New suggestions sends an email wne EmailPurchaseSuggestions enabled' ); my $message1 = C4::Letters::GetMessage( $newsuggestions_messages->[0]->{message_id} ); @@ -673,7 +673,7 @@ subtest 'EmailPurchaseSuggestions' => sub { t::lib::Mocks::mock_preference( "ReplytoDefault", 'library@b.c' ); Koha::Suggestion->new($my_suggestion)->store; - $newsuggestions_messages = C4::Letters::GetQueuedMessages( { borrowernumber => $borrowernumber } ); + $newsuggestions_messages = C4::Letters::GetQueuedMessages( { letter_code => 'NEW_SUGGESTION' } ); my $message5 = C4::Letters::GetMessage( $newsuggestions_messages->[4]->{message_id} ); is( @@ -705,7 +705,7 @@ subtest 'EmailPurchaseSuggestions' => sub { ); Koha::Suggestion->new($my_suggestion)->store; - $newsuggestions_messages = C4::Letters::GetQueuedMessages( { borrowernumber => $borrowernumber } ); + $newsuggestions_messages = C4::Letters::GetQueuedMessages( { letter_code => 'NEW_SUGGESTION' } ); my $message7 = C4::Letters::GetMessage( $newsuggestions_messages->[6]->{message_id} ); is( -- 2.39.5