|
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 |
$letter->{content} = _process_tt( |
| 622 |
{ |
| 623 |
content => $letter->{content}, |
| 624 |
lang => $lang, |
| 625 |
loops => $loops, |
| 626 |
objects => $objects, |
| 627 |
substitute => $substitute, |
| 628 |
tables => $tables, |
| 629 |
} |
| 630 |
); |
| 631 |
|
| 632 |
$letter->{title} = _process_tt( |
| 633 |
{ |
| 634 |
content => $letter->{title}, |
| 635 |
lang => $lang, |
| 636 |
loops => $loops, |
| 637 |
objects => $objects, |
| 638 |
substitute => $substitute, |
| 639 |
tables => $tables, |
| 640 |
} |
| 641 |
); |
| 642 |
|
| 621 |
if (%$substitute) { |
643 |
if (%$substitute) { |
| 622 |
while ( my ($token, $val) = each %$substitute ) { |
644 |
while ( my ($token, $val) = each %$substitute ) { |
| 623 |
$val //= q{}; |
645 |
$val //= q{}; |
|
Lines 688-715
sub GetPreparedLetter {
Link Here
|
| 688 |
} |
710 |
} |
| 689 |
} |
711 |
} |
| 690 |
|
712 |
|
| 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 |
{ |
| 704 |
content => $letter->{title}, |
| 705 |
lang => $lang, |
| 706 |
loops => $loops, |
| 707 |
objects => $objects, |
| 708 |
substitute => $substitute, |
| 709 |
tables => $tables, |
| 710 |
} |
| 711 |
); |
| 712 |
|
| 713 |
$letter->{content} =~ s/<<\S*>>//go; #remove any stragglers |
713 |
$letter->{content} =~ s/<<\S*>>//go; #remove any stragglers |
| 714 |
|
714 |
|
| 715 |
return $letter; |
715 |
return $letter; |
| 716 |
- |
|
|