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
11 use C4::Biblio qw( ModBiblioMarc );
15 my $dbh = C4::Context->dbh;
17 my $sth=$dbh->prepare("SELECT biblio.biblionumber, biblioitemnumber, frameworkcode FROM biblio JOIN biblioitems USING (biblionumber)");
20 while (my ($biblionumber,$biblioitemnumber,$frameworkcode)=$sth->fetchrow ){
21 my $biblio = Koha::Biblios->find($biblionumber);
22 my $record = $biblio->metadata->record;
23 C4::Biblio::_koha_marc_update_bib_ids($record, $frameworkcode, $biblionumber, $biblioitemnumber);
24 my $biblionumber = eval {ModBiblioMarc( $record, $biblionumber )};
26 print "Problem with biblionumber : $biblionumber\n";
29 print "biblionumber : $biblionumber\r\r";