Bug 17600: Standardize our EXPORT_OK

[srvgit] / misc / migration_tools / upgradeitems.pl

diff --git a/misc/migration_tools/upgradeitems.pl b/misc/migration_tools/upgradeitems.pl
index c5469ee..7ba79ae 100755 (executable)
--- a/misc/migration_tools/upgradeitems.pl
+++ b/misc/migration_tools/upgradeitems.pl
@@ -2,9 +2,11 @@
 
 use strict;
 #use warnings; FIXME - Bug 2505
-use  C4::Context;
-use C4::Items;
-use C4::Biblio;
+
+use Koha::Script;
+use C4::Context;
+use C4::Items qw( ModItemFromMarc );
+use C4::Biblio qw( GetMarcBiblio );
 
 my $dbh=C4::Context->dbh;
 
@@ -18,7 +20,7 @@ my $rqitemnumber=$dbh->prepare("SELECT itemnumber, biblionumber from items where
 $rqbiblios->execute;
 $|=1;
 while (my ($biblionumber)= $rqbiblios->fetchrow_array){
-    my $record=GetMarcBiblio($biblionumber);
+    my $record=GetMarcBiblio({ biblionumber => $biblionumber });
     foreach my $itemfield ($record->field('995')){
         my $marcitem=MARC::Record->new();
         $marcitem->encoding('UTF-8');