|
Lines 624-630
END_SQL
Link Here
|
| 624 |
} |
624 |
} |
| 625 |
} |
625 |
} |
| 626 |
|
626 |
|
| 627 |
my $letter = C4::Letters::getletter( 'circulation', $overdue_rules->{"letter$i"}, $branchcode, undef, $patron->lang ); |
627 |
my $letter = C4::Letters::getletter( 'circulation', $overdue_rules->{"letter$i"}, $branchcode, undef, $patron->lang ) |
|
|
628 |
|| C4::Letters::getletter( 'circulation', $overdue_rules->{"letter$i"}, $branchcode, undef, "default"); |
| 628 |
|
629 |
|
| 629 |
unless ($letter) { |
630 |
unless ($letter) { |
| 630 |
$verbose and warn qq|Message '$overdue_rules->{"letter$i"}' content not found|; |
631 |
$verbose and warn qq|Message '$overdue_rules->{"letter$i"}' content not found|; |
|
Lines 715-721
END_SQL
Link Here
|
| 715 |
splice @items, $PrintNoticesMaxLines if $effective_mtt eq 'print' && $PrintNoticesMaxLines && scalar @items > $PrintNoticesMaxLines; |
716 |
splice @items, $PrintNoticesMaxLines if $effective_mtt eq 'print' && $PrintNoticesMaxLines && scalar @items > $PrintNoticesMaxLines; |
| 716 |
#catch the case where we are sending a print to someone with an email |
717 |
#catch the case where we are sending a print to someone with an email |
| 717 |
|
718 |
|
| 718 |
my $letter_exists = C4::Letters::getletter( 'circulation', $overdue_rules->{"letter$i"}, $branchcode, $effective_mtt, $patron->lang ) ? 1 : 0; |
719 |
my $letter_exists = ( C4::Letters::getletter( 'circulation', $overdue_rules->{"letter$i"}, $branchcode, $effective_mtt, $patron->lang ) |
|
|
720 |
|| C4::Letters::getletter( 'circulation', $overdue_rules->{"letter$i"}, $branchcode, $effective_mtt, "default") ) ? 1 : 0; |
| 719 |
my $letter = parse_overdues_letter( |
721 |
my $letter = parse_overdues_letter( |
| 720 |
{ letter_code => $overdue_rules->{"letter$i"}, |
722 |
{ letter_code => $overdue_rules->{"letter$i"}, |
| 721 |
borrowernumber => $borrowernumber, |
723 |
borrowernumber => $borrowernumber, |
| 722 |
- |
|
|