View | Details | Raw Unified | Return to bug 28765
Collapse All | Expand All

(-)a/tools/batchMod.pl (-17 lines)
Lines 757-775 sub UpdateMarcWith { Link Here
757
    }
757
    }
758
    return $modified;
758
    return $modified;
759
}
759
}
760
761
sub find_value {
762
    my ($tagfield,$insubfield,$record) = @_;
763
    my $result;
764
    my $indicator;
765
    foreach my $field ($record->field($tagfield)) {
766
        my @subfields = $field->subfields();
767
        foreach my $subfield (@subfields) {
768
            if (@$subfield[0] eq $insubfield) {
769
                $result .= @$subfield[1];
770
                $indicator = $field->indicator(1).$field->indicator(2);
771
            }
772
        }
773
    }
774
    return($indicator,$result);
775
}
776
- 

Return to bug 28765