Bug 42368: Use C4::Context::csv_delimiter for delimiter validation

Signed-off-by: Martin Renvoize <martin.renvoize@openfifth.co.uk>
Signed-off-by: Pedro Amorim <pedro.amorim@openfifth.co.uk>
This commit is contained in:
Jonathan Druart 2026-06-01 15:24:44 +02:00 committed by Pedro Amorim
parent 0af6fbb7e7
commit 44c7c10a19
No known key found for this signature in database
GPG Key ID: 06B75BA7F3894D55
1 changed files with 1 additions and 9 deletions

View File

@ -64,15 +64,7 @@ my $output = "screen";
my $output_input = $input->param("output"); my $output_input = $input->param("output");
my $basename = "Export"; my $basename = "Export";
my $basename_input = $input->param("basename"); my $basename_input = $input->param("basename");
our $sep = C4::Context->csv_delimiter(); our $sep = C4::Context->csv_delimiter( scalar $input->param("sep") );
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;
}
my %allowed_fields = ( my %allowed_fields = (
"timestamp" => 1, "timestamp" => 1,