Bug 32093: Make help and code match for bg-days in cleanup_database.pl

[srvgit] / misc / batchRepairMissingBiblionumbers.pl

diff --git a/misc/batchRepairMissingBiblionumbers.pl b/misc/batchRepairMissingBiblionumbers.pl
index 695c452..97d619c 100755 (executable)
--- a/misc/batchRepairMissingBiblionumbers.pl
+++ b/misc/batchRepairMissingBiblionumbers.pl
@@ -4,29 +4,24 @@
 #  Revised by Joshua Ferraro on 03/31/2006
 use strict;
 use warnings;
-BEGIN {
-    # find Koha's Perl modules
-    # test carefully before changing this
-    use FindBin;
-    eval { require "$FindBin::Bin/kohalib.pl" };
-}
 
 # Koha modules used
 use Koha::Script;
 use C4::Context;
-use C4::Biblio;
+use C4::Biblio qw( ModBiblioMarc );
+use Koha::Biblios;
 
 
 my $dbh = C4::Context->dbh;
-my %kohafields;
 
 my $sth=$dbh->prepare("SELECT biblio.biblionumber, biblioitemnumber, frameworkcode FROM biblio JOIN biblioitems USING (biblionumber)");
 $sth->execute();
 
 while (my ($biblionumber,$biblioitemnumber,$frameworkcode)=$sth->fetchrow ){
-    my $record = GetMarcBiblio({ biblionumber => $biblionumber });
+    my $biblio = Koha::Biblios->find($biblionumber);
+    my $record = $biblio->metadata->record;
     C4::Biblio::_koha_marc_update_bib_ids($record, $frameworkcode, $biblionumber, $biblioitemnumber);
-    my $biblionumber = eval {ModBiblioMarc( $record, $biblionumber, $frameworkcode )};
+    my $biblionumber = eval {ModBiblioMarc( $record, $biblionumber )};
     if($@){
         print "Problem with biblionumber : $biblionumber\n";
         exit -1;