misc/batchRepairMissingBiblionumbers.pl

   1 #!/usr/bin/perl
   2 # This script finds and fixes missing biblionumber/biblioitemnumber fields in Koha
   3 #  Written by TG on 01/10/2005
   4 #  Revised by Joshua Ferraro on 03/31/2006
   5 use strict;
   6 use warnings;
   7 BEGIN {
   8     # find Koha's Perl modules
   9     # test carefully before changing this
  10     use FindBin;
  11     eval { require "$FindBin::Bin/kohalib.pl" };
  12 }
  13
  14 # Koha modules used
  15
  16 use C4::Context;
  17 use C4::Biblio;
  18
  19
  20 my $dbh = C4::Context->dbh;
  21 my %kohafields;
  22
  23 my $sth=$dbh->prepare("SELECT biblio.biblionumber, biblioitemnumber, frameworkcode FROM biblio JOIN biblioitems USING (biblionumber)");
  24 $sth->execute();
  25
  26 while (my ($biblionumber,$biblioitemnumber,$frameworkcode)=$sth->fetchrow ){
  27     my $record = GetMarcBiblio($biblionumber);
  28     C4::Biblio::_koha_marc_update_bib_ids($record, $frameworkcode, $biblionumber, $biblioitemnumber);
  29     my $biblionumber = eval {ModBiblioMarc( $record, $biblionumber, $frameworkcode )};
  30     if($@){
  31         print "Problem with biblionumber : $biblionumber\n";
  32         exit -1;
  33     }else{
  34         print "biblionumber : $biblionumber\r\r";
  35     }
  36 }
  37
  38 END;