From c907ec7dcba7969a5cd5c09828bc5357e225e230 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Joonas=20Kylm=C3=A4l=C3=A4?= Date: Sun, 26 Sep 2021 08:01:51 +0000 Subject: [PATCH] Bug 29111: Remove dead code from acqui/addorderiso2709.pl Test plan: 1) open acqui/addorderiso2709.pl in your code editor and make sure nothing references $item in the if block where it was removed from Signed-off-by: Petro Vashchuk Signed-off-by: Katrin Fischer --- acqui/addorderiso2709.pl | 6 ------ 1 file changed, 6 deletions(-) diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl index 404c3334bd..47c2ff2cca 100755 --- a/acqui/addorderiso2709.pl +++ b/acqui/addorderiso2709.pl @@ -378,12 +378,6 @@ if ($op eq ""){ my @serials = $input->multi_param('serial'); my @ind_tag = $input->multi_param('ind_tag'); my @indicator = $input->multi_param('indicator'); - my $item; - push @{ $item->{tags} }, $tags[0]; - push @{ $item->{subfields} }, $subfields[0]; - push @{ $item->{field_values} }, $field_values[0]; - push @{ $item->{ind_tag} }, $ind_tag[0]; - push @{ $item->{indicator} }, $indicator[0]; my $xml = TransformHtmlToXml( \@tags, \@subfields, \@field_values, \@indicator, \@ind_tag ); my $record = MARC::Record::new_from_xml( $xml, 'UTF-8' ); for (my $qtyloop=1;$qtyloop <= $c_quantity;$qtyloop++) { -- 2.11.0