@@ -, +, @@ used at least one time authorities in the biblios that uses them --- authorities/merge.pl | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) --- a/authorities/merge.pl +++ a/authorities/merge.pl @@ -58,8 +58,17 @@ if ($merge) { $record->leader( GetAuthority($recordid1)->leader() ); # Modifying the reference record - ModAuthority( $recordid1, $record, $typecode ); + my $dbh=C4::Context->dbh; + my $overwrite = C4::Context->preference('overwriteSubfieldsOnMerge'); + my $MARCto = GetAuthority($recordid1); + my $MARCfrom = GetAuthority($recordid2); + if(C4::Context->preference('dontmerge') ne '1'){ + &merge($recordid2,$MARCfrom,$recordid1,$MARCto); + }else{ + my $sqlinsert="INSERT INTO need_merge_authorities (authid, done) "."VALUES (?,?)"; + $dbh->do($sqlinsert,undef,($recordid1,0)); + } # Deleting the other record if ( scalar(@errors) == 0 ) { --