|
Lines 580-586
sub UpdateMarcWith {
Link Here
|
| 580 |
foreach my $subfield ( $fieldfrom->subfields() ) { |
580 |
foreach my $subfield ( $fieldfrom->subfields() ) { |
| 581 |
foreach my $field_to_update ( @fields_to ) { |
581 |
foreach my $field_to_update ( @fields_to ) { |
| 582 |
if ( $subfield->[1] ) { |
582 |
if ( $subfield->[1] ) { |
| 583 |
unless ( $field_to_update->subfield($subfield->[0]) ~~ $subfield->[1] ) { |
583 |
unless ( $field_to_update->subfield($subfield->[0]) eq $subfield->[1] ) { |
| 584 |
$modified++; |
584 |
$modified++; |
| 585 |
$field_to_update->update( $subfield->[0] => $subfield->[1] ); |
585 |
$field_to_update->update( $subfield->[0] => $subfield->[1] ); |
| 586 |
} |
586 |
} |
| 587 |
- |
|
|