gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 39883: (follow-up) Retrieve messages by letter_code 

Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
(cherry picked from commit 91cb819f88)
Signed-off-by: Paul Derscheid <paul.derscheid@lmscloud.de>
This commit is contained in:
Lucas Gass 2025-08-15 15:45:59 +00:00 committed by Paul Derscheid
parent 9488baf31f
commit 81a74cb7a6
No known key found for this signature in database
GPG Key ID: C25F9FD44CED595B
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
t/db_dependent/Suggestions.t
View File

@ -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(