|
Lines 435-442
END_SQL
Link Here
|
| 435 |
# my $outfile = 'overdues_' . ( $mybranch || $branchcode || 'default' ); |
435 |
# my $outfile = 'overdues_' . ( $mybranch || $branchcode || 'default' ); |
| 436 |
while ( my $overdue_rules = $rqoverduerules->fetchrow_hashref ) { |
436 |
while ( my $overdue_rules = $rqoverduerules->fetchrow_hashref ) { |
| 437 |
PERIOD: foreach my $i ( 1 .. 3 ) { |
437 |
PERIOD: foreach my $i ( 1 .. 3 ) { |
| 438 |
my $print_sent = 0; # We never sent a print notice |
|
|
| 439 |
|
| 440 |
$verbose and warn "branch '$branchcode', pass $i\n"; |
438 |
$verbose and warn "branch '$branchcode', pass $i\n"; |
| 441 |
my $mindays = $overdue_rules->{"delay$i"}; # the notice will be sent after mindays days (grace period) |
439 |
my $mindays = $overdue_rules->{"delay$i"}; # the notice will be sent after mindays days (grace period) |
| 442 |
my $maxdays = ( |
440 |
my $maxdays = ( |
|
Lines 557-562
END_SQL
Link Here
|
| 557 |
@message_transport_types = @{ GetOverdueMessageTransportTypes( q{}, $overdue_rules->{categorycode}, $i) } |
555 |
@message_transport_types = @{ GetOverdueMessageTransportTypes( q{}, $overdue_rules->{categorycode}, $i) } |
| 558 |
unless @message_transport_types; |
556 |
unless @message_transport_types; |
| 559 |
|
557 |
|
|
|
558 |
|
| 559 |
my $print_sent = 0; # A print notice is not yet sent for this patron |
| 560 |
for my $mtt ( @message_transport_types ) { |
560 |
for my $mtt ( @message_transport_types ) { |
| 561 |
|
561 |
|
| 562 |
my $letter = parse_letter( |
562 |
my $letter = parse_letter( |
| 563 |
- |
|
|