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

(-)a/C4/AuthoritiesMarc.pm (-6 lines)
Lines 1530-1540 sub merge { Link Here
1530
		    $exclude.= $subfield->[0];
1530
		    $exclude.= $subfield->[0];
1531
                }
1531
                }
1532
		$exclude='['.$exclude.']';
1532
		$exclude='['.$exclude.']';
1533
#		add subfields in $field not included in @record_to
1534
		my @restore= grep {$_->[0]!~/$exclude/} $field->subfields();
1535
                foreach my $subfield (@restore) {
1536
                   $field_to->add_subfields($subfield->[0] =>$subfield->[1]);
1537
		}
1538
                $marcrecord->delete_field($field);
1533
                $marcrecord->delete_field($field);
1539
                $marcrecord->insert_grouped_field($field_to);            
1534
                $marcrecord->insert_grouped_field($field_to);            
1540
                $update=1;
1535
                $update=1;
1541
- 

Return to bug 14583