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 }