From 942b431fcbf8fe1008ab4f96e7cb7f50275949f9 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 14 Dec 2021 15:57:13 +0100 Subject: [PATCH] Bug 29695: (follow-up) Remove C4::Reports::Guided::_get_column_defs Same as the previous patch but for the inventory. Test plan: Same as before but test the inventory tool --- tools/inventory.pl | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) diff --git a/tools/inventory.pl b/tools/inventory.pl index 52b05997032..871cc983e01 100755 --- a/tools/inventory.pl +++ b/tools/inventory.pl @@ -37,6 +37,7 @@ use C4::Charset qw( NormalizeString ); use Koha::Biblios; use Koha::DateUtils qw( dt_from_string output_pref ); +use Koha::Database::Columns; use Koha::AuthorisedValues; use Koha::BiblioFrameworks; use Koha::ClassSources; @@ -383,14 +384,7 @@ if (defined $input->param('CSVexport') && $input->param('CSVexport') eq 'on'){ -attachment => 'inventory.csv', ); - my $columns_def_hashref = C4::Reports::Guided::_get_column_defs($input); - foreach my $key ( keys %$columns_def_hashref ) { - my $initkey = $key; - $key =~ s/[^\.]*\.//; - $columns_def_hashref->{$initkey}=NormalizeString($columns_def_hashref->{$initkey} // ''); - $columns_def_hashref->{$key} = $columns_def_hashref->{$initkey}; - } - + my $columns = Koha::Database::Columns->columns; my @translated_keys; for my $key (qw / biblioitems.title biblio.author items.barcode items.itemnumber @@ -399,7 +393,8 @@ if (defined $input->param('CSVexport') && $input->param('CSVexport') eq 'on'){ items.itemlost items.damaged items.withdrawn items.stocknumber / ) { - push @translated_keys, $columns_def_hashref->{$key}; + my ( $table, $column ) = split '\.', $key; + push @translated_keys, NormalizeString($columns->{$table}->{$column} // ''); } push @translated_keys, 'problem' if $uploadbarcodes; -- 2.25.1