From 9f1988b23d33f80f75934c375cd340d260173223 Mon Sep 17 00:00:00 2001 From: Jonathan Druart <jonathan.druart@biblibre.com> Date: Thu, 13 Feb 2014 14:54:45 +0100 Subject: [PATCH] Bug 10832: FIX Some print notices may not be sent If overdues should be sent to some patron (on the same branch), only the first one was notified. This patch fixes this issue. --- misc/cronjobs/overdue_notices.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/misc/cronjobs/overdue_notices.pl b/misc/cronjobs/overdue_notices.pl index 8668b1a..ce88a53 100755 --- a/misc/cronjobs/overdue_notices.pl +++ b/misc/cronjobs/overdue_notices.pl @@ -435,8 +435,6 @@ END_SQL # my $outfile = 'overdues_' . ( $mybranch || $branchcode || 'default' ); while ( my $overdue_rules = $rqoverduerules->fetchrow_hashref ) { PERIOD: foreach my $i ( 1 .. 3 ) { - my $print_sent = 0; # We never sent a print notice - $verbose and warn "branch '$branchcode', pass $i\n"; my $mindays = $overdue_rules->{"delay$i"}; # the notice will be sent after mindays days (grace period) my $maxdays = ( @@ -557,6 +555,8 @@ END_SQL @message_transport_types = @{ GetOverdueMessageTransportTypes( q{}, $overdue_rules->{categorycode}, $i) } unless @message_transport_types; + + my $print_sent = 0; # A print notice is not yet sent for this patron for my $mtt ( @message_transport_types ) { my $letter = parse_letter( -- 1.7.10.4