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 <david@davidnind.com> Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com> Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
parent
293ed9a8d0
commit
cd6ab5e2e8
|
|
@ -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);
|
||||
}
|
||||
|
|
|
|||
Loading…
Reference in New Issue