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 |
ModAuthority( $recordid1, $record, $typecode ); |
|
|
62 |
|
61 |
|
|
|
62 |
my $dbh=C4::Context->dbh; |
63 |
my $overwrite = C4::Context->preference('overwriteSubfieldsOnMerge'); |
64 |
my $MARCto = GetAuthority($recordid1); |
65 |
my $MARCfrom = GetAuthority($recordid2); |
66 |
if(C4::Context->preference('dontmerge') ne '1'){ |
67 |
&merge($recordid2,$MARCfrom,$recordid1,$MARCto); |
68 |
}else{ |
69 |
my $sqlinsert="INSERT INTO need_merge_authorities (authid, done) "."VALUES (?,?)"; |
70 |
$dbh->do($sqlinsert,undef,($recordid1,0)); |
71 |
} |
63 |
# Deleting the other record |
72 |
# Deleting the other record |
64 |
if ( scalar(@errors) == 0 ) { |
73 |
if ( scalar(@errors) == 0 ) { |
65 |
|
74 |
|
66 |
- |
|
|