X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=misc%2Fmigration_tools%2Fupgradeitems.pl;h=7ba79ae377d0c26fc582e96f607e7f5cf62cf325;hb=9d6d641d1f8b77271800f43bc027b651f9aea52b;hp=c5469eeb4471d073e57620cc9f8ec49f19af2822;hpb=5c2def51587c4b2636b5f066306b8bd5dc0e7a7a;p=srvgit

diff --git a/misc/migration_tools/upgradeitems.pl b/misc/migration_tools/upgradeitems.pl
index c5469eeb44..7ba79ae377 100755
--- 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');