synch'ing 2.2 and head

[koha.git] / misc / migration_tools / bulkmarcimport.pl

diff --git a/misc/migration_tools/bulkmarcimport.pl b/misc/migration_tools/bulkmarcimport.pl
index c1410ce..ac754f9 100644 (file)
--- a/misc/migration_tools/bulkmarcimport.pl
+++ b/misc/migration_tools/bulkmarcimport.pl
@@ -82,6 +82,7 @@ while ( my $record = $batch->next() ) {
 
     ## create an empty record object to populate
     my $newRecord = MARC::Record->new();
+       $newRecord->leader($record->leader());
 
     # go through each field in the existing record
     foreach my $oldField ( $record->fields() ) {