From 08e551f194cb18a5d44d7a36ef04a38692655527 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Mon, 7 Jul 2003 14:49:41 +0000
Subject: [PATCH] minor changes

---
 misc/bulkmarcimport.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/misc/bulkmarcimport.pl b/misc/bulkmarcimport.pl
index 31d6119688..794d5e8988 100755
--- a/misc/bulkmarcimport.pl
+++ b/misc/bulkmarcimport.pl
@@ -67,7 +67,7 @@ print "CHAR : $char_encoding\n";
 my $batch = MARC::Batch->new( 'USMARC', $input_marc_file );
 $batch->warnings_off();
 $batch->strict_off();
-my $i=1;
+my $i=0;
 #1st of all, find item MARC tag.
 my ($tagfield,$tagsubfield) = &MARCfind_marc_from_kohafield($dbh,"items.itemnumber");
 
@@ -75,6 +75,7 @@ while ( my $record = $batch->next() ) {
 	$i++;
 	#now, parse the record, extract the item fields, and store them in somewhere else.
 	$record = MARC::File::USMARC::decode(char_decode($record->as_usmarc(),$char_encoding));
+	warn "==>".$record->as_formatted();
 	my @fields = $record->field($tagfield);
 	print "biblio $i";
 	my @items;
@@ -96,4 +97,4 @@ while ( my $record = $batch->next() ) {
 			NEWnewitem($dbh,$items[$i],$bibid);
 		}
 	}
-}
\ No newline at end of file
+}
-- 
2.39.2