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