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

(-)a/C4/AuthoritiesMarc.pm (-2 / +6 lines)
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
- 

Return to bug 14769