missing )
[wip/koha-chris_n.git] / misc / migration_tools / upgradeitems.pl
1 #!/usr/bin/perl
2
3 use strict;
4 use  C4::Context;
5 use C4::Items;
6 use C4::Biblio;
7
8 my $dbh=C4::Context->dbh;
9
10 if (C4::Context->preference("marcflavour") ne "UNIMARC") {
11     print "this script is for UNIMARC only\n";
12     exit;
13 }
14 my $rqbiblios=$dbh->prepare("SELECT biblionumber from biblioitems");
15 $rqbiblios->execute;
16 $|=1;
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";
25        if ($@){
26             warn "$biblionumber : $@";
27             warn $record->as_formatted;
28        }    
29     }  
30 }