|
Lines 741-767
END_SQL
Link Here
|
| 741 |
} |
741 |
} |
| 742 |
); |
742 |
); |
| 743 |
} else { |
743 |
} else { |
| 744 |
if ( ($mtt eq 'email' and not scalar @emails_to_use) or ($mtt eq 'sms' and not $data->{smsalertnumber}) ) { |
744 |
# Just send a print only if not already done. |
| 745 |
push @output_chunks, |
|
|
| 746 |
prepare_letter_for_printing( |
| 747 |
{ letter => $letter, |
| 748 |
borrowernumber => $borrowernumber, |
| 749 |
firstname => $data->{'firstname'}, |
| 750 |
lastname => $data->{'surname'}, |
| 751 |
address1 => $data->{'address'}, |
| 752 |
address2 => $data->{'address2'}, |
| 753 |
city => $data->{'city'}, |
| 754 |
postcode => $data->{'zipcode'}, |
| 755 |
country => $data->{'country'}, |
| 756 |
email => $notice_email, |
| 757 |
itemcount => $itemcount, |
| 758 |
titles => $titles, |
| 759 |
outputformat => defined $csvfilename ? 'csv' : defined $htmlfilename ? 'html' : defined $text_filename ? 'text' : '', |
| 760 |
} |
| 761 |
); |
| 762 |
} |
| 763 |
unless ( $effective_mtt eq 'print' and $print_sent == 1 ) { |
745 |
unless ( $effective_mtt eq 'print' and $print_sent == 1 ) { |
| 764 |
# Just sent a print if not already done. |
746 |
if ( ($mtt eq 'email' and not scalar @emails_to_use) or ($mtt eq 'sms' and not $data->{smsalertnumber}) ) { |
|
|
747 |
push @output_chunks, |
| 748 |
prepare_letter_for_printing( |
| 749 |
{ letter => $letter, |
| 750 |
borrowernumber => $borrowernumber, |
| 751 |
firstname => $data->{'firstname'}, |
| 752 |
lastname => $data->{'surname'}, |
| 753 |
address1 => $data->{'address'}, |
| 754 |
address2 => $data->{'address2'}, |
| 755 |
city => $data->{'city'}, |
| 756 |
postcode => $data->{'zipcode'}, |
| 757 |
country => $data->{'country'}, |
| 758 |
email => $notice_email, |
| 759 |
itemcount => $itemcount, |
| 760 |
titles => $titles, |
| 761 |
outputformat => defined $csvfilename ? 'csv' : defined $htmlfilename ? 'html' : defined $text_filename ? 'text' : '', |
| 762 |
} |
| 763 |
); |
| 764 |
} |
| 765 |
C4::Letters::EnqueueLetter( |
765 |
C4::Letters::EnqueueLetter( |
| 766 |
{ letter => $letter, |
766 |
{ letter => $letter, |
| 767 |
borrowernumber => $borrowernumber, |
767 |
borrowernumber => $borrowernumber, |
| 768 |
- |
|
|