X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=misc%2FbatchImportMARCWithBiblionumbers.pl;h=24692fda565683fe303b5e17eab33455452bdd29;hb=2e30600a5827deb1686d56ea00c27c232b22b7bc;hp=a1bf26eb7481187d64da4f059a50ce7eb51487ac;hpb=b4f39e5c5877e55baff8cfe4dba02c9475a2547e;p=koha.git

diff --git a/misc/batchImportMARCWithBiblionumbers.pl b/misc/batchImportMARCWithBiblionumbers.pl
index a1bf26eb74..24692fda56 100755
--- a/misc/batchImportMARCWithBiblionumbers.pl
+++ b/misc/batchImportMARCWithBiblionumbers.pl
@@ -2,6 +2,7 @@
 # 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
@@ -55,7 +56,7 @@ my ($tagfield,$biblionumtagsubfield) = &GetMarcFromKohaField("biblio.biblionumbe
 
 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";