From 89bde58323832061f8b7b590dff419177a7419e0 Mon Sep 17 00:00:00 2001
From: Erik Huelsmann <ehuels@gmail.com>
Date: Sat, 30 Nov 2024 14:50:27 +0100
Subject: [PATCH] Fix regression in GL report column selection

---
 lib/LedgerSMB/Scripts/journal.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/LedgerSMB/Scripts/journal.pm b/lib/LedgerSMB/Scripts/journal.pm
index 5c871693ff..755145f2b8 100644
--- a/lib/LedgerSMB/Scripts/journal.pm
+++ b/lib/LedgerSMB/Scripts/journal.pm
@@ -110,7 +110,7 @@ sub search {
     #tshvr4 trying to mix in period from_month from_year interval
     return $request->render_report(
         LedgerSMB::Report::GL->new(
-            $request->%{qw( reference accno category source memo
+            $request->%{(qw( reference accno category source memo
                             business_units
                             is_voided
                             is_approved
@@ -118,7 +118,8 @@ sub search {
                             from_month from_year
                             comparison_periods comparison_type
                             comparisons
-                            ) },
+                         ),
+                         grep { m/^(bc_|col_)/ } keys $request->%*)},
             formatter_options => $request->formatter_options,
             from_amount => $request->parse_amount( $request->{from_amount} ),
             to_amount => $request->parse_amount( $request->{to_amount} ),