Lines 454-461
END_SQL
Link Here
|
454 |
# my $outfile = 'overdues_' . ( $mybranch || $branchcode || 'default' ); |
454 |
# my $outfile = 'overdues_' . ( $mybranch || $branchcode || 'default' ); |
455 |
while ( my $overdue_rules = $rqoverduerules->fetchrow_hashref ) { |
455 |
while ( my $overdue_rules = $rqoverduerules->fetchrow_hashref ) { |
456 |
PERIOD: foreach my $i ( 1 .. 3 ) { |
456 |
PERIOD: foreach my $i ( 1 .. 3 ) { |
457 |
my $print_sent = 0; # We never sent a print notice |
|
|
458 |
|
459 |
$verbose and warn "branch '$branchcode', pass $i\n"; |
457 |
$verbose and warn "branch '$branchcode', pass $i\n"; |
460 |
my $mindays = $overdue_rules->{"delay$i"}; # the notice will be sent after mindays days (grace period) |
458 |
my $mindays = $overdue_rules->{"delay$i"}; # the notice will be sent after mindays days (grace period) |
461 |
my $maxdays = ( |
459 |
my $maxdays = ( |
Lines 576-581
END_SQL
Link Here
|
576 |
@message_transport_types = @{ GetOverdueMessageTransportTypes( q{}, $overdue_rules->{categorycode}, $i) } |
574 |
@message_transport_types = @{ GetOverdueMessageTransportTypes( q{}, $overdue_rules->{categorycode}, $i) } |
577 |
unless @message_transport_types; |
575 |
unless @message_transport_types; |
578 |
|
576 |
|
|
|
577 |
|
578 |
my $print_sent = 0; # A print notice is not yet sent for this patron |
579 |
for my $mtt ( @message_transport_types ) { |
579 |
for my $mtt ( @message_transport_types ) { |
580 |
|
580 |
|
581 |
my $letter = parse_letter( |
581 |
my $letter = parse_letter( |
582 |
- |
|
|