Bug 26435: Add warning to AutoSelfCheck sysprefs

[koha-ffzg.git] / misc / batchImportMARCWithBiblionumbers.pl

diff --git a/misc/batchImportMARCWithBiblionumbers.pl b/misc/batchImportMARCWithBiblionumbers.pl
index 24692fd..02f275d 100755 (executable)
--- a/misc/batchImportMARCWithBiblionumbers.pl
+++ b/misc/batchImportMARCWithBiblionumbers.pl
@@ -12,6 +12,7 @@ BEGIN {
 
 # Koha modules used
 
+use Koha::Script;
 use C4::Context;
 use C4::Biblio;
 use MARC::Record;
@@ -52,7 +53,7 @@ my $fh = IO::File->new($input_marc_file); # don't let MARC::Batch open the file,
 my $batch = MARC::Batch->new( 'USMARC', $fh );
 $batch->warnings_off();
 $batch->strict_off();
-my ($tagfield,$biblionumtagsubfield) = &GetMarcFromKohaField("biblio.biblionumber","");
+my ($tagfield,$biblionumtagsubfield) = &GetMarcFromKohaField( "biblio.biblionumber" );
 
 my $i=0;
 while ( my $record = $batch->next() ) {