|
Lines 674-679
END_SQL
Link Here
|
| 674 |
my $print_sent = 0; # A print notice is not yet sent for this patron |
674 |
my $print_sent = 0; # A print notice is not yet sent for this patron |
| 675 |
for my $mtt ( @message_transport_types ) { |
675 |
for my $mtt ( @message_transport_types ) { |
| 676 |
|
676 |
|
|
|
677 |
if ( ($mtt eq 'email' and not scalar @emails_to_use) or ($mtt eq 'sms' and not $data->{smsalertnumber}) ) { |
| 678 |
# email or sms is requested but not exist, do a print. |
| 679 |
$mtt = 'print'; |
| 680 |
} |
| 677 |
my $letter = parse_overdues_letter( |
681 |
my $letter = parse_overdues_letter( |
| 678 |
{ letter_code => $overdue_rules->{"letter$i"}, |
682 |
{ letter_code => $overdue_rules->{"letter$i"}, |
| 679 |
borrowernumber => $borrowernumber, |
683 |
borrowernumber => $borrowernumber, |
|
Lines 726-733
END_SQL
Link Here
|
| 726 |
); |
730 |
); |
| 727 |
} else { |
731 |
} else { |
| 728 |
if ( ($mtt eq 'email' and not scalar @emails_to_use) or ($mtt eq 'sms' and not $data->{smsalertnumber}) ) { |
732 |
if ( ($mtt eq 'email' and not scalar @emails_to_use) or ($mtt eq 'sms' and not $data->{smsalertnumber}) ) { |
| 729 |
# email or sms is requested but not exist, do a print. |
|
|
| 730 |
$mtt = 'print'; |
| 731 |
push @output_chunks, |
733 |
push @output_chunks, |
| 732 |
prepare_letter_for_printing( |
734 |
prepare_letter_for_printing( |
| 733 |
{ letter => $letter, |
735 |
{ letter => $letter, |
| 734 |
- |
|
|