From c9d517a94cbc37f4870dc0df080d8165752f2aab Mon Sep 17 00:00:00 2001 From: Aleisha Amohia Date: Tue, 21 Mar 2023 02:47:29 +0000 Subject: [PATCH] Bug 33260: Add a patron getter method to Koha::Notice::Message Signed-off-by: Laura Escamilla Signed-off-by: kelly --- Koha/Notice/Message.pm | 16 ++++++++++++++++ t/db_dependent/Letters.t | 8 +++++--- 2 files changed, 21 insertions(+), 3 deletions(-) diff --git a/Koha/Notice/Message.pm b/Koha/Notice/Message.pm index b7e30e509f0..65c6df18df2 100644 --- a/Koha/Notice/Message.pm +++ b/Koha/Notice/Message.pm @@ -65,6 +65,22 @@ EOS } +=head3 patron + + my $patron = $message->patron; + +Returns the Koha::Patron object for the recipient of the queued message + +=cut + +sub patron { + my ($self) = @_; + + $self->{_patron} ||= Koha::Patrons->find( $self->borrowernumber ); + + return $self->{_patron}; +} + =head3 type =cut diff --git a/t/db_dependent/Letters.t b/t/db_dependent/Letters.t index eff6e3fd406..bbafb351c7b 100755 --- a/t/db_dependent/Letters.t +++ b/t/db_dependent/Letters.t @@ -18,7 +18,7 @@ # along with Koha; if not, see . use Modern::Perl; -use Test::More tests => 100; +use Test::More tests => 101; use Test::MockModule; use Test::Warn; use Test::Exception; @@ -154,8 +154,10 @@ is( $messages->[0]->{updated_on}, $messages->[0]->{time_queued}, 'Time status ch is( $messages->[0]->{failure_code}, '', 'Failure code for successful message correctly empty'); # Setting time_queued to something else than now -my $yesterday = dt_from_string->subtract( days => 1 ); -Koha::Notice::Messages->find($messages->[0]->{message_id})->time_queued($yesterday)->store; +my $yesterday = dt_from_string->subtract( days => 1 ); +my $message_obj = Koha::Notice::Messages->find( $messages->[0]->{message_id} )->time_queued($yesterday)->store; +my $patron_obj = Koha::Patrons->find($borrowernumber); +is_deeply( $message_obj->patron, $patron_obj, "Koha::Notice::Message->patron sub correctly returns patron object" ); # SendQueuedMessages -- 2.39.2