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

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

Return to bug 36244