View | Details | Raw Unified | Return to bug 36244
Collapse All | Expand All

(-)a/C4/Letters.pm (-23 / +22 lines)
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
- 

Return to bug 36244