Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

minor changes

Browse source
This commit is contained in:
tipaul 2003-07-07 14:49:41 +00:00
parent 4c56c1a12f
commit 08e551f194
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
misc/bulkmarcimport.pl
View file

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