# load records that already have biblionumber set into a koha system
# Written by TG on 10/04/2006
use strict;
+#use warnings; FIXME - Bug 2505
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
my $i=0;
while ( my $record = $batch->next() ) {
- my $biblionumber=$record->field($tagfield)->subfield($biblionumtagsubfield);
+ my $biblionumber = ($tagfield < 10) ? $record->field($tagfield)->data : $record->subfield($tagfield, $biblionumtagsubfield);
$i++;
$sth2->execute($record->as_usmarc,$biblionumber) if $biblionumber;
print "$biblionumber \n";