From 3f08275a006b6e471c40e2050254e2c2879dc871 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 27 May 2014 10:12:20 +0200 Subject: [PATCH] Bug 12315: fix sending of duplicate advanced notices (and sending advanced notices to wrong patron) Bug 10833 introduced a variable loop but does not reset it every iteration. So the first patron receives correct letters, but the following ones received all the previous ones as well as their own notices Test plan: 0/ Delete the content of the message_queue table. 1/ Define advanced notices sent 2 days in advance for 2 patrons. 2/ Check 1 item out for each one and specify a due date today + 2 days. 3/ Launch the advance_notices.pl script. 4/ Before this patch, you got 3 notices. Now, you get 2 notices, 1 for each patron. Signed-off-by: Bernardo Gonzalez Kriegel Work well, no errors. Tested following test plan, printing on screen or saving into db, 3 messages before, 2 after (advance_notices.pl -v -n -m 2 -c) Signed-off-by: Galen Charlton Signed-off-by: Tomas Cohen Arazi Signed-off-by: Galen Charlton --- misc/cronjobs/advance_notices.pl | 1 + 1 file changed, 1 insertion(+) diff --git a/misc/cronjobs/advance_notices.pl b/misc/cronjobs/advance_notices.pl index c7c2e0f57b..1fe3a66278 100755 --- a/misc/cronjobs/advance_notices.pl +++ b/misc/cronjobs/advance_notices.pl @@ -226,6 +226,7 @@ my $admin_adress = C4::Context->preference('KohaAdminEmailAddress'); my @letters; UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) { + @letters = (); warn 'examining ' . $upcoming->{'itemnumber'} . ' upcoming due items' if $verbose; # warn( Data::Dumper->Dump( [ $upcoming ], [ 'overdue' ] ) ); -- 2.39.5