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

(-)a/C4/AuthoritiesMarc.pm (-1 / +10 lines)
Lines 1431-1436 sub merge { Link Here
1431
    }
1431
    }
1432
    $oResult->destroy();
1432
    $oResult->destroy();
1433
    #warn scalar(@reccache)." biblios to update";
1433
    #warn scalar(@reccache)." biblios to update";
1434
    #Get a list of authority controlled subfields
1435
    $sth = $dbh->prepare("select distinct tagsubfield from auth_subfield_structure where authtypecode=? and tagfield=? and tab >=0 and hidden = 0");
1436
    $sth->execute($authtypecodeto, $auth_tag_to_report_to);
1437
    my @subfields_controlled_by_auth_to;
1438
    while (my ($tagsubfield) = $sth->fetchrow) {
1439
        push @subfields_controlled_by_auth_to, $tagsubfield ;
1440
    }
1434
    # Get All candidate Tags for the change 
1441
    # Get All candidate Tags for the change 
1435
    # (This will reduce the search scope in marc records).
1442
    # (This will reduce the search scope in marc records).
1436
    $sth = $dbh->prepare("select distinct tagfield from marc_subfield_structure where authtypecode=?");
1443
    $sth = $dbh->prepare("select distinct tagfield from marc_subfield_structure where authtypecode=?");
Lines 1463-1468 sub merge { Link Here
1463
                    $field_to->add_subfields($subfield->[0] =>$subfield->[1]);
1470
                    $field_to->add_subfields($subfield->[0] =>$subfield->[1]);
1464
		    $exclude.= $subfield->[0];
1471
		    $exclude.= $subfield->[0];
1465
                }
1472
                }
1473
		foreach my $subt (@subfields_controlled_by_auth_to) {
1474
		    $exclude.= $subt;
1475
		}
1466
		$exclude='['.$exclude.']';
1476
		$exclude='['.$exclude.']';
1467
#		add subfields in $field not included in @record_to
1477
#		add subfields in $field not included in @record_to
1468
		my @restore= grep {$_->[0]!~/$exclude/} $field->subfields();
1478
		my @restore= grep {$_->[0]!~/$exclude/} $field->subfields();
1469
- 

Return to bug 5572