Lines 1300-1305
sub merge {
Link Here
|
1300 |
$oConnection->destroy(); |
1300 |
$oConnection->destroy(); |
1301 |
} |
1301 |
} |
1302 |
#warn scalar(@reccache)." biblios to update"; |
1302 |
#warn scalar(@reccache)." biblios to update"; |
|
|
1303 |
#Get a list of authority controlled subfields |
1304 |
$sth = $dbh->prepare("select distinct tagsubfield from auth_subfield_structure where authtypecode=? and tagfield=? and tab >=0"); |
1305 |
$sth->execute($authtypecodeto, $auth_tag_to_report_to); |
1306 |
my @subfields_controlled_by_auth_to; |
1307 |
while (my ($tagsubfield) = $sth->fetchrow) { |
1308 |
push @subfields_controlled_by_auth_to, $tagsubfield ; |
1309 |
} |
1303 |
# Get All candidate Tags for the change |
1310 |
# Get All candidate Tags for the change |
1304 |
# (This will reduce the search scope in marc records). |
1311 |
# (This will reduce the search scope in marc records). |
1305 |
$sth = $dbh->prepare("select distinct tagfield from marc_subfield_structure where authtypecode=?"); |
1312 |
$sth = $dbh->prepare("select distinct tagfield from marc_subfield_structure where authtypecode=?"); |
Lines 1332-1337
sub merge {
Link Here
|
1332 |
$field_to->add_subfields($subfield->[0] =>$subfield->[1]); |
1339 |
$field_to->add_subfields($subfield->[0] =>$subfield->[1]); |
1333 |
$exclude.= $subfield->[0]; |
1340 |
$exclude.= $subfield->[0]; |
1334 |
} |
1341 |
} |
|
|
1342 |
foreach my $subt (@subfields_controlled_by_auth_to) { |
1343 |
$exclude.= $subt; |
1344 |
} |
1335 |
$exclude='['.$exclude.']'; |
1345 |
$exclude='['.$exclude.']'; |
1336 |
# add subfields in $field not included in @record_to |
1346 |
# add subfields in $field not included in @record_to |
1337 |
my @restore= grep {$_->[0]!~/$exclude/} $field->subfields(); |
1347 |
my @restore= grep {$_->[0]!~/$exclude/} $field->subfields(); |
1338 |
- |
|
|