From 5b51239f88c55042353a72f5d45d4ea153f524f9 Mon Sep 17 00:00:00 2001 From: Aleisha Amohia Date: Tue, 13 Aug 2024 00:49:54 +0000 Subject: [PATCH] Bug 37598: Use EmailRecipientField for 'to', 'cc' or 'bcc' when sending notices to selected addresses --- C4/Letters.pm | 30 ++++++++++++++++++++++++++++-- 1 file changed, 28 insertions(+), 2 deletions(-) diff --git a/C4/Letters.pm b/C4/Letters.pm index 3f2fc95a4b0..dcde0d4f1a5 100644 --- a/C4/Letters.pm +++ b/C4/Letters.pm @@ -1451,6 +1451,32 @@ sub _send_message_by_email { ); return; }; + + my $bcc_address = C4::Context->preference('NoticeBcc'); + + if ( C4::Context->preference('EmailFieldPrimary') eq "MULTI" + and C4::Context->preference('EmailRecipientField') eq "cc" ) + { + $cc_address = join( ',', $cc_address, $to_address ); + _update_message_cc_address( $message->{'message_id'}, $cc_address ); + if ($count_guarantor_address) { + $to_address = shift @guarantor_address; + } else { + $to_address = undef; + } + _update_message_to_address( $message->{'message_id'}, $to_address ); + } elsif ( C4::Context->preference('EmailFieldPrimary') eq "MULTI" + and C4::Context->preference('EmailRecipientField') eq "bcc" ) + { + $bcc_address = join( ',', $bcc_address, $to_address ); + if ($count_guarantor_address) { + $to_address = shift @guarantor_address; + } else { + $to_address = undef; + } + _update_message_to_address( $message->{'message_id'}, $to_address ); + } + my $email; try { @@ -1458,8 +1484,8 @@ sub _send_message_by_email { my $params = { to => $to_address, ( - C4::Context->preference('NoticeBcc') - ? ( bcc => C4::Context->preference('NoticeBcc') ) + $bcc_address + ? ( bcc => $bcc_address ) : () ), ( -- 2.39.2