Lines 1528-1534
sub merge {
Link Here
|
1528 |
my $auth_number=$field->subfield("9"); |
1528 |
my $auth_number=$field->subfield("9"); |
1529 |
my $tag=$field->tag(); |
1529 |
my $tag=$field->tag(); |
1530 |
if ($auth_number==$mergefrom) { |
1530 |
if ($auth_number==$mergefrom) { |
1531 |
my $field_to=MARC::Field->new(($tag_to?$tag_to:$tag),$field->indicator(1),$field->indicator(2),"9"=>$mergeto); |
1531 |
my $field_to = MARC::Field->new( |
|
|
1532 |
($tag_to ? $tag_to : $tag), |
1533 |
$MARCto->field($auth_tag_to_report_to)->indicator(1), |
1534 |
$MARCto->field($auth_tag_to_report_to)->indicator(2), |
1535 |
"9"=>$mergeto |
1536 |
); |
1532 |
my $exclude='9'; |
1537 |
my $exclude='9'; |
1533 |
foreach my $subfield (grep {$_->[0] ne '9'} @record_to) { |
1538 |
foreach my $subfield (grep {$_->[0] ne '9'} @record_to) { |
1534 |
$field_to->add_subfields($subfield->[0] =>$subfield->[1]); |
1539 |
$field_to->add_subfields($subfield->[0] =>$subfield->[1]); |
1535 |
- |
|
|