Bug #6044 - Authority is deleted when mergeto and mergefrom are the same

Signed-off-by: Stéphane Delaune <stephane.delaune@biblibre.com>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
(cherry picked from commit e43da19e34745d734ab6ee5cb5540e4d6e92adf3)

Signed-off-by: Chris Nighswonger <chris.nighswonger@gmail.com>

diff --git a/misc/migration_tools/merge_authority.pl b/misc/migration_tools/merge_authority.pl
index 0987827..b99591f 100755 (executable)
--- a/misc/migration_tools/merge_authority.pl
+++ b/misc/migration_tools/merge_authority.pl
@@ -97,7 +97,7 @@ if ($batch) {
   my $MARCto = GetAuthority($mergeto);
   &merge($mergefrom,$MARCfrom,$mergeto,$MARCto);
   #Could add mergefrom authority to mergeto rejected forms before deletion 
-  DelAuthority($mergefrom);
+  DelAuthority($mergefrom) if ($mergefrom != $mergeto);
 }
 my $timeneeded = gettimeofday - $starttime;
 print "Done in $timeneeded seconds" unless $noconfirm;