[Koha-patches] [PATCH] BZ4026 : Fix record's leader when merging records

[matthias.meusburger at biblibre.com]

From: Matthias Meusburger <matthias.meusburger at biblibre.com>

---
 cataloguing/merge.pl |    4 ++++
 1 files changed, 4 insertions(+), 0 deletions(-)

diff --git a/cataloguing/merge.pl b/cataloguing/merge.pl
index be84df5..6398016 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;
 
-- 
1.6.3.3