gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Signed-off-by: Wainui Witika-Park <wainuiwitikapark@catalyst.net.nz>
This commit is contained in:
Jonathan Druart 2026-06-01 15:20:49 +02:00 committed by Wainui Witika-Park
parent 88b007991b
commit c7be2c822d
No known key found for this signature in database
GPG Key ID: 2D0A6AB5DAF1B78D
1 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
reports/catalogue_stats.pl
View File

@ -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 {