From db49883cfc5302a7d4d44fc1c2092d1e2c2664f8 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 Signed-off-by: David Nind --- tools/batchMod.pl | 16 ---------------- 1 file changed, 16 deletions(-) diff --git a/tools/batchMod.pl b/tools/batchMod.pl index 4f0efe833e..0f57a2debd 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