4 #use warnings; FIXME - Bug 2505
9 my $dbh=C4::Context->dbh;
11 if (C4::Context->preference("marcflavour") ne "UNIMARC") {
12 print "this script is for UNIMARC only\n";
15 my $rqbiblios=$dbh->prepare("SELECT biblionumber from biblioitems");
18 while (my ($biblionumber)= $rqbiblios->fetchrow_array){
19 my $record=GetMarcBiblio($biblionumber);
20 foreach my $itemfield ($record->field('995')){
21 my $marcitem=MARC::Record->new();
22 $marcitem->encoding('UTF-8');
23 $marcitem->append_fields($itemfield);
24 eval{ModItemFromMarc($marcitem,$biblionumber,$itemfield->subfield('9'));};
25 print "\r$biblionumber";
27 warn "$biblionumber : $@";
28 warn $record->as_formatted;