From e43da19e34745d734ab6ee5cb5540e4d6e92adf3 Mon Sep 17 00:00:00 2001
From: Alex Arnaud <alex.arnaud@biblibre.com>
Date: Tue, 5 Apr 2011 14:11:00 +0200
Subject: [PATCH] Bug #6044 - Authority is deleted when mergeto and mergefrom
 are the same
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Signed-off-by: Stéphane Delaune <stephane.delaune@biblibre.com>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
---
 misc/migration_tools/merge_authority.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/misc/migration_tools/merge_authority.pl b/misc/migration_tools/merge_authority.pl
index 0987827981..b99591ffd6 100755
--- 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;
-- 
2.39.5