From 238dc709b961a42c475708afe9786bad3303dbb2 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
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