From 9abdae45036e10a5ffcd58014593ff95339180a5 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Mon, 1 Aug 2005 14:49:20 +0000
Subject: [PATCH] copying leader to the new record, for leader management

---
 misc/migration_tools/bulkmarcimport.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/misc/migration_tools/bulkmarcimport.pl b/misc/migration_tools/bulkmarcimport.pl
index c1410cea53..ac754f993c 100644
--- 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() ) {
-- 
2.39.5