Lines 1338-1343
sub merge {
Link Here
|
1338 |
$oConnection->option("preferredRecordSyntax"=>$oldSyntax); |
1338 |
$oConnection->option("preferredRecordSyntax"=>$oldSyntax); |
1339 |
} |
1339 |
} |
1340 |
#warn scalar(@reccache)." biblios to update"; |
1340 |
#warn scalar(@reccache)." biblios to update"; |
|
|
1341 |
#Get a list of authority controlled subfields |
1342 |
$sth = $dbh->prepare("select distinct tagsubfield from auth_subfield_structure where authtypecode=? and tagfield=? and tab >=0 and hidden = 0"); |
1343 |
$sth->execute($authtypecodeto, $auth_tag_to_report_to); |
1344 |
my @subfields_controlled_by_auth_to; |
1345 |
while (my ($tagsubfield) = $sth->fetchrow) { |
1346 |
push @subfields_controlled_by_auth_to, $tagsubfield ; |
1347 |
} |
1341 |
# Get All candidate Tags for the change |
1348 |
# Get All candidate Tags for the change |
1342 |
# (This will reduce the search scope in marc records). |
1349 |
# (This will reduce the search scope in marc records). |
1343 |
$sth = $dbh->prepare("select distinct tagfield from marc_subfield_structure where authtypecode=?"); |
1350 |
$sth = $dbh->prepare("select distinct tagfield from marc_subfield_structure where authtypecode=?"); |
Lines 1370-1375
sub merge {
Link Here
|
1370 |
$field_to->add_subfields($subfield->[0] =>$subfield->[1]); |
1377 |
$field_to->add_subfields($subfield->[0] =>$subfield->[1]); |
1371 |
$exclude.= $subfield->[0]; |
1378 |
$exclude.= $subfield->[0]; |
1372 |
} |
1379 |
} |
|
|
1380 |
foreach my $subt (@subfields_controlled_by_auth_to) { |
1381 |
$exclude.= $subt; |
1382 |
} |
1373 |
$exclude='['.$exclude.']'; |
1383 |
$exclude='['.$exclude.']'; |
1374 |
# add subfields in $field not included in @record_to |
1384 |
# add subfields in $field not included in @record_to |
1375 |
my @restore= grep {$_->[0]!~/$exclude/} $field->subfields(); |
1385 |
my @restore= grep {$_->[0]!~/$exclude/} $field->subfields(); |
1376 |
- |
|
|