From caa66ac91f301a7a259e9e44ffc244c88e6b31dc Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 1 Jun 2026 15:40:03 +0200 Subject: [PATCH] Bug 42369: [24.11] Use C4::Context::csv_delimiter for delimiter validation Signed-off-by: Jonathan Druart (cherry picked from commit bd98e67192f955faf402b56f8933bc3997ce9e7e) Signed-off-by: Fridolin Somers --- reports/bor_issues_top.pl | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) diff --git a/reports/bor_issues_top.pl b/reports/bor_issues_top.pl index 4361a52a49..49d8c9c154 100755 --- a/reports/bor_issues_top.pl +++ b/reports/bor_issues_top.pl @@ -62,15 +62,7 @@ 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"); - -#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; -} +our $sep = C4::Context->csv_delimiter( scalar $input->param("sep") ); my %allowed_fields = ( "branchcode" => 1,