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