BZ4026 : Fix record's leader when merging records

This commit is contained in:
Matthias Meusburger 2010-01-07 11:58:15 +01:00 committed by Henri-Damien LAURENT
parent 45b6f2bc65
commit 2f274f01a1
1 changed files with 4 additions and 0 deletions

View File

@ -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;