From 238dc709b961a42c475708afe9786bad3303dbb2 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Thu, 7 Mar 2024 10:35:38 +0100 Subject: [PATCH] Bug 36244: Prevent TT to evaluate data from DB Reversing the order could be a nice fix here (Thanks Martin for the idea). --- C4/Letters.pm | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) diff --git a/C4/Letters.pm b/C4/Letters.pm index a0404ac7075..b0789b8b0b7 100644 --- a/C4/Letters.pm +++ b/C4/Letters.pm @@ -618,6 +618,18 @@ 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, + } + ); + if (%$substitute) { while ( my ($token, $val) = each %$substitute ) { $val //= q{}; @@ -688,17 +700,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}, -- 2.34.1