|
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 |
- |