Lines 618-623
sub GetPreparedLetter {
Link Here
|
618 |
return; |
618 |
return; |
619 |
my $want_librarian = $params{want_librarian}; |
619 |
my $want_librarian = $params{want_librarian}; |
620 |
|
620 |
|
|
|
621 |
|
622 |
$letter->{content} = _process_tt( |
623 |
{ |
624 |
content => $letter->{content}, |
625 |
lang => $lang, |
626 |
loops => $loops, |
627 |
objects => $objects, |
628 |
substitute => $substitute, |
629 |
tables => $tables, |
630 |
} |
631 |
); |
632 |
|
621 |
if (%$substitute) { |
633 |
if (%$substitute) { |
622 |
while ( my ($token, $val) = each %$substitute ) { |
634 |
while ( my ($token, $val) = each %$substitute ) { |
623 |
$val //= q{}; |
635 |
$val //= q{}; |
Lines 688-704
sub GetPreparedLetter {
Link Here
|
688 |
} |
700 |
} |
689 |
} |
701 |
} |
690 |
|
702 |
|
691 |
$letter->{content} = _process_tt( |
|
|
692 |
{ |
693 |
content => $letter->{content}, |
694 |
lang => $lang, |
695 |
loops => $loops, |
696 |
objects => $objects, |
697 |
substitute => $substitute, |
698 |
tables => $tables, |
699 |
} |
700 |
); |
701 |
|
702 |
$letter->{title} = _process_tt( |
703 |
$letter->{title} = _process_tt( |
703 |
{ |
704 |
{ |
704 |
content => $letter->{title}, |
705 |
content => $letter->{title}, |
705 |
- |
|
|