From c7be2c822d77a48514e0d682c652f9e77dec05be Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Mon, 1 Jun 2026 15:20:49 +0200
Subject: [PATCH] Bug 42363: Use C4::Context::csv_delimiter for delimiter
 validation

Signed-off-by: Wainui Witika-Park <wainuiwitikapark@catalyst.net.nz>
---
 reports/catalogue_stats.pl | 11 ++---------
 1 file changed, 2 insertions(+), 9 deletions(-)

diff --git a/reports/catalogue_stats.pl b/reports/catalogue_stats.pl
index 2a8cd46780..d8af335488 100755
--- a/reports/catalogue_stats.pl
+++ b/reports/catalogue_stats.pl
@@ -65,8 +65,8 @@ my $output           = "screen";
 my $output_input     = $input->param("output");
 my $basename         = "Export";
 my $basename_input   = $input->param("basename");
-our $sep = C4::Context->csv_delimiter();
-my $sep_input = $input->param("sep");
+
+our $sep = C4::Context->csv_delimiter( scalar $input->param("sep") );
 
 my $item_itype;
 
@@ -117,13 +117,6 @@ if ($basename_input) {
     }
 }
 
-#NOTE: Validate sep parameter
-my $delimiter_choices = GetDelimiterChoices();
-my %allowed_seps      = map { $_ => 1 } @{ $delimiter_choices->{values} };
-if ( $sep_input && $allowed_seps{$sep_input} ) {
-    $sep = $sep_input;
-}
-
 if ( C4::Context->preference('item-level_itypes') ) {
     $item_itype = "items\.itype";
 } else {