|
Lines 58-65
if ($merge) {
Link Here
|
| 58 |
$record->leader( GetAuthority($recordid1)->leader() ); |
58 |
$record->leader( GetAuthority($recordid1)->leader() ); |
| 59 |
|
59 |
|
| 60 |
# Modifying the reference record |
60 |
# Modifying the reference record |
|
|
61 |
# This triggers a merge for the biblios attached to $recordid1 |
| 61 |
ModAuthority( $recordid1, $record, $typecode ); |
62 |
ModAuthority( $recordid1, $record, $typecode ); |
| 62 |
|
63 |
|
|
|
64 |
# We still need a merge for biblios attached to $recordid2 |
| 65 |
if( C4::Context->preference('dontmerge') ne '1' ) { |
| 66 |
my $MARCfrom = GetAuthority( $recordid2 ); |
| 67 |
&merge( $recordid2, $MARCfrom, $recordid1, $record ); |
| 68 |
} else { |
| 69 |
my $dbh = C4::Context->dbh; |
| 70 |
my $sqlinsert = "INSERT INTO need_merge_authorities (authid, done) VALUES (?,?)"; |
| 71 |
$dbh->do( $sqlinsert, undef, ( $recordid1, 0 ) ); |
| 72 |
} |
| 73 |
|
| 63 |
# Deleting the other record |
74 |
# Deleting the other record |
| 64 |
if ( scalar(@errors) == 0 ) { |
75 |
if ( scalar(@errors) == 0 ) { |
| 65 |
|
76 |
|
| 66 |
- |
|
|