From 2f274f01a1fa64d4e30a26142dee0e734345835c Mon Sep 17 00:00:00 2001 From: Matthias Meusburger 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