Lines 1459-1468
sub merge {
Link Here
|
1459 |
# Get All candidate Tags for the change |
1459 |
# Get All candidate Tags for the change |
1460 |
# (This will reduce the search scope in marc records). |
1460 |
# (This will reduce the search scope in marc records). |
1461 |
my $sql = "SELECT DISTINCT tagfield FROM marc_subfield_structure WHERE authtypecode=?"; |
1461 |
my $sql = "SELECT DISTINCT tagfield FROM marc_subfield_structure WHERE authtypecode=?"; |
1462 |
my $tags_using_authtype = $dbh->selectcol_arrayref( $sql, undef, ( $authtypecodefrom )); |
1462 |
my $tags_using_authtype = $dbh->selectcol_arrayref( $sql, undef, ( $authtypefrom->authtypecode )); |
1463 |
my $tags_new; |
1463 |
my $tags_new; |
1464 |
if ($authtypecodeto ne $authtypecodefrom){ |
1464 |
if ($authtypeto->authtypecode ne $authtypefrom->authtypecode){ |
1465 |
$tags_new = $dbh->selectcol_arrayref( $sql, undef, ( $authtypecodeto )); |
1465 |
$tags_new = $dbh->selectcol_arrayref( $sql, undef, ( $authtypeto->authtypecode )); |
1466 |
} |
1466 |
} |
1467 |
# BulkEdit marc records |
1467 |
# BulkEdit marc records |
1468 |
# May be used as a template for a bulkedit field |
1468 |
# May be used as a template for a bulkedit field |
1469 |
- |
|
|