diff --git a/C4/Letters.pm b/C4/Letters.pm index ab16f729c5..25300bd5ec 100644 --- a/C4/Letters.pm +++ b/C4/Letters.pm @@ -602,6 +602,28 @@ sub GetPreparedLetter { return; my $want_librarian = $params{want_librarian}; + $letter->{content} = _process_tt( + { + content => $letter->{content}, + lang => $lang, + loops => $loops, + objects => $objects, + substitute => $substitute, + tables => $tables, + } + ); + + $letter->{title} = _process_tt( + { + content => $letter->{title}, + lang => $lang, + loops => $loops, + objects => $objects, + substitute => $substitute, + tables => $tables, + } + ); + if (%$substitute) { while ( my ($token, $val) = each %$substitute ) { $val //= q{}; @@ -672,28 +694,6 @@ sub GetPreparedLetter { } } - $letter->{content} = _process_tt( - { - content => $letter->{content}, - lang => $lang, - loops => $loops, - objects => $objects, - substitute => $substitute, - tables => $tables, - } - ); - - $letter->{title} = _process_tt( - { - content => $letter->{title}, - lang => $lang, - loops => $loops, - objects => $objects, - substitute => $substitute, - tables => $tables, - } - ); - $letter->{content} =~ s/<<\S*>>//go; #remove any stragglers return $letter;