Bug 11652: ensure that merging authority records corrects biblios

[koha_fer] / authorities / merge.pl

diff --git a/authorities/merge.pl b/authorities/merge.pl
index 315e232..3628381 100755 (executable)
--- a/authorities/merge.pl
+++ b/authorities/merge.pl
@@ -68,6 +68,7 @@ if ($merge) {
             require C4::ImportBatch;
             C4::ImportBatch::SetImportRecordStatus( $recordid2, 'imported' );
         } else {
+            C4::AuthoritiesMarc::merge( $recordid2, GetAuthority($recordid2), $recordid1, $record );
             $error = (DelAuthority($recordid2) == 0);
         }
         push @errors, $error if ($error);