From 06dfe2fa6dbee0c882f2911ccefb2de35723be86 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 26 Jul 2021 18:31:43 +0200 Subject: [PATCH] Bug 28765: Remove sub find_value from batchMod.pl It has never been used and should be removed Test plan: Search for "find_value" in the file and confirm that there is no more occurrence --- tools/batchMod.pl | 16 ---------------- 1 file changed, 16 deletions(-) diff --git a/tools/batchMod.pl b/tools/batchMod.pl index 4f0efe833e7..0f57a2debd9 100755 --- a/tools/batchMod.pl +++ b/tools/batchMod.pl @@ -757,19 +757,3 @@ sub UpdateMarcWith { } return $modified; } - -sub find_value { - my ($tagfield,$insubfield,$record) = @_; - my $result; - my $indicator; - foreach my $field ($record->field($tagfield)) { - my @subfields = $field->subfields(); - foreach my $subfield (@subfields) { - if (@$subfield[0] eq $insubfield) { - $result .= @$subfield[1]; - $indicator = $field->indicator(1).$field->indicator(2); - } - } - } - return($indicator,$result); -} -- 2.20.1