Code cleaning :

[koha_gimpoz] / misc / marcimport_to_biblioitems.pl

diff --git a/misc/marcimport_to_biblioitems.pl b/misc/marcimport_to_biblioitems.pl
index 9d893c3..8dda84f 100644 (file)
--- a/misc/marcimport_to_biblioitems.pl
+++ b/misc/marcimport_to_biblioitems.pl
@@ -44,7 +44,7 @@ my $batch = MARC::Batch->new( 'USMARC', $input_marc_file );
 $batch->warnings_off();
 $batch->strict_off();
 my $i=0;
-my ($tagfield,$biblionumtagsubfield) = &MARCfind_marc_from_kohafield($dbh,"biblio.biblionumber","");
+my ($tagfield,$biblionumtagsubfield) = &GetMarcFromKohaField($dbh,"biblio.biblionumber","");
 
 while ( my $record = $batch->next() ) {
 my $biblionumber=$record->field($tagfield)->subfield($biblionumtagsubfield);