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 |
- |
|
|