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;
$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');