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