Bug 10832: (follow-up) fix case where some print overdue notices were not being sent
If overdues should be sent to some patron (on the same branch), only the first one was notified. This patch fixes this issue. Signed-off-by: Olli-Antti Kivilahti <olli-antti.kivilahti@jns.fi> Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl> Signed-off-by: Galen Charlton <gmc@esilibrary.com>
This commit is contained in:
parent
9575986ed1
commit
04ac36aa7c
1 changed files with 2 additions and 2 deletions
|
@ -454,8 +454,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 = (
|
||||
|
@ -576,6 +574,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(
|
||||
|
|
Loading…
Reference in a new issue