|
Lines 597-602
sub GetPreparedLetter {
Link Here
|
| 597 |
return; |
597 |
return; |
| 598 |
my $want_librarian = $params{want_librarian}; |
598 |
my $want_librarian = $params{want_librarian}; |
| 599 |
|
599 |
|
|
|
600 |
$letter->{content} = _process_tt( |
| 601 |
{ |
| 602 |
content => $letter->{content}, |
| 603 |
tables => $tables, |
| 604 |
loops => $loops, |
| 605 |
substitute => $substitute, |
| 606 |
lang => $lang |
| 607 |
} |
| 608 |
); |
| 609 |
|
| 610 |
$letter->{title} = _process_tt( |
| 611 |
{ |
| 612 |
content => $letter->{title}, |
| 613 |
tables => $tables, |
| 614 |
loops => $loops, |
| 615 |
substitute => $substitute, |
| 616 |
} |
| 617 |
); |
| 618 |
|
| 600 |
if (%$substitute) { |
619 |
if (%$substitute) { |
| 601 |
while ( my ($token, $val) = each %$substitute ) { |
620 |
while ( my ($token, $val) = each %$substitute ) { |
| 602 |
$val //= q{}; |
621 |
$val //= q{}; |
|
Lines 667-691
sub GetPreparedLetter {
Link Here
|
| 667 |
} |
686 |
} |
| 668 |
} |
687 |
} |
| 669 |
|
688 |
|
| 670 |
$letter->{content} = _process_tt( |
|
|
| 671 |
{ |
| 672 |
content => $letter->{content}, |
| 673 |
tables => $tables, |
| 674 |
loops => $loops, |
| 675 |
substitute => $substitute, |
| 676 |
lang => $lang |
| 677 |
} |
| 678 |
); |
| 679 |
|
| 680 |
$letter->{title} = _process_tt( |
| 681 |
{ |
| 682 |
content => $letter->{title}, |
| 683 |
tables => $tables, |
| 684 |
loops => $loops, |
| 685 |
substitute => $substitute, |
| 686 |
} |
| 687 |
); |
| 688 |
|
| 689 |
$letter->{content} =~ s/<<\S*>>//go; #remove any stragglers |
689 |
$letter->{content} =~ s/<<\S*>>//go; #remove any stragglers |
| 690 |
|
690 |
|
| 691 |
return $letter; |
691 |
return $letter; |
| 692 |
- |
|
|