From 2f274f01a1fa64d4e30a26142dee0e734345835c Mon Sep 17 00:00:00 2001
From: Matthias Meusburger <matthias.meusburger@biblibre.com>
Date: Thu, 7 Jan 2010 11:58:15 +0100
Subject: [PATCH] BZ4026 : Fix record's leader when merging records

---
 cataloguing/merge.pl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/cataloguing/merge.pl b/cataloguing/merge.pl
index be84df5bb4..63980168ed 100755
--- a/cataloguing/merge.pl
+++ b/cataloguing/merge.pl
@@ -56,6 +56,10 @@ if ($merge) {
     my $record       = TransformHtmlToMarc( \@params , $input );
     my $tobiblio     =  $input->param('biblio1');
     my $frombiblio   =  $input->param('biblio2');
+
+    # Rewriting the leader
+    $record->leader(GetMarcBiblio($tobiblio)->leader());
+
     my $frameworkcode = &GetFrameworkCode($tobiblio);
     my @notmoveditems;
 
-- 
2.39.5