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 |
- |
|
|