4 #use warnings; FIXME - Bug 2505
8 use C4::Items qw( ModItemFromMarc );
11 my $dbh=C4::Context->dbh;
13 if (C4::Context->preference("marcflavour") ne "UNIMARC") {
14 print "this script is for UNIMARC only\n";
17 my $rqbiblios=$dbh->prepare("SELECT biblionumber from biblioitems");
18 my $rqitemnumber=$dbh->prepare("SELECT itemnumber, biblionumber from items where itemnumber = ? and biblionumber = ?");
22 while (my ($biblionumber)= $rqbiblios->fetchrow_array){
23 my $biblio = Koha::Biblios->find($biblionumber);
24 my $record = $biblio->metadata->record;
25 foreach my $itemfield ($record->field('995')){
26 my $marcitem=MARC::Record->new();
27 $marcitem->encoding('UTF-8');
28 $marcitem->append_fields($itemfield);
32 my @itemnumbers = $itemfield->subfield('9');
33 foreach my $itemnumber ( @itemnumbers ){
34 $rqitemnumber->execute($itemnumber, $biblionumber);
35 if( my $row = $rqitemnumber->fetchrow_hashref ){
36 $itemnum = $row->{itemnumber};
42 ModItemFromMarc($marcitem,$biblionumber,$itemnum)
47 print "\r$biblionumber";
49 warn "Problem with : $biblionumber : $@";
50 warn $record->as_formatted;