From 7c1c0a5e64deba42fd051a4d382097c2ba560a39 Mon Sep 17 00:00:00 2001 From: Brendan Lawlor Date: Wed, 22 Oct 2025 19:42:38 +0000 Subject: [PATCH] Bug 41075: Set from address when enqueing hold pickup notices for digest --- C4/Message.pm | 6 ++++-- C4/Reserves.pm | 2 +- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/C4/Message.pm b/C4/Message.pm index e57379adeb..f053352272 100644 --- a/C4/Message.pm +++ b/C4/Message.pm @@ -151,9 +151,9 @@ the message. =cut -# C4::Message->enqueue($letter, $borrower, $transport) +# C4::Message->enqueue($letter, $borrower, $transport, $from_email_address, $reply_email_address ) sub enqueue { - my ( $class, $letter, $patron, $transport ) = @_; + my ( $class, $letter, $patron, $transport, $from_email_address, $reply_email_address ) = @_; my $metadata = _metadata($letter); my $to_address = _to_address( $patron, $transport ); @@ -169,6 +169,8 @@ sub enqueue { borrowernumber => $patron->id, message_transport_type => $transport, to_address => $to_address, + from_address => $from_email_address, + reply_address => $reply_email_address, } ); } diff --git a/C4/Reserves.pm b/C4/Reserves.pm index b559c8b9b1..598d5fbdf2 100644 --- a/C4/Reserves.pm +++ b/C4/Reserves.pm @@ -2047,7 +2047,7 @@ sub _koha_notify_reserve { my $message = C4::Message->find_last_message( $patron->unblessed, $letter_code, $mtt ); unless ($message) { C4::Context->dbh->do(q|UNLOCK TABLES|) unless $do_not_lock; - C4::Message->enqueue( $letter, $patron, $mtt ); + C4::Message->enqueue( $letter, $patron, $mtt, $from_email_address, $reply_email_address ); } else { $message->append($letter); $message->update; -- 2.39.5