From c86849c7b25d0670aa4223d3dc0eaafc32350824 Mon Sep 17 00:00:00 2001
From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Date: Tue, 1 Mar 2022 16:47:52 +0000
Subject: [PATCH] Bug 17648: (QA follow-up) Restore imediate sending of the
 notice

The original notice was sent using SendAlerts, which triggers
immediately on submission and doesn't wait for the cron task.

This patch restores that immediacy and also fixes a bug in the imports
on the original patch.
---
 members/memberentry.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/members/memberentry.pl b/members/memberentry.pl
index 04beeb8fea..f2a93188d7 100755
--- a/members/memberentry.pl
+++ b/members/memberentry.pl
@@ -30,7 +30,7 @@ use C4::Context;
 use C4::Output qw( output_and_exit output_and_exit_if_error output_html_with_http_headers );
 use C4::Members qw( checkcardnumber get_cardnumber_length );
 use C4::Koha qw( GetAuthorisedValues );
-use C4::Letters qw( SendAlerts );
+use C4::Letters qw( GetPreparedLetter EnqueueLetter SendQueuedMessages );
 use C4::Form::MessagingPreferences;
 use Koha::AuthUtils;
 use Koha::AuthorisedValues;
@@ -478,7 +478,7 @@ if ((!$nok) and $nodouble and ($op eq 'insert' or $op eq 'save')){
                         want_librarian => 1,
                     ) or return;
 
-                    my $success = EnqueueLetter(
+                    my $message_id = EnqueueLetter(
                         {
                             letter                 => $letter,
                             borrowernumber         => $patron->id,
@@ -486,6 +486,7 @@ if ((!$nok) and $nodouble and ($op eq 'insert' or $op eq 'save')){
                             message_transport_type => 'email'
                         }
                     );
+                    SendQueuedMessages({ message_id => $message_id });
                 };
                 if ($@) {
                     $template->param( error_alert => $@ );
-- 
2.20.1