Bug 29697: Replace GetMarcBiblio occurrences with $biblio->metadata->record

[srvgit] / misc / migration_tools / 22_to_30 / rebuild_unimarc_100.pl

diff --git a/misc/migration_tools/22_to_30/rebuild_unimarc_100.pl b/misc/migration_tools/22_to_30/rebuild_unimarc_100.pl
index e428d61..b0c5dc5 100755 (executable)
--- a/misc/migration_tools/22_to_30/rebuild_unimarc_100.pl
+++ b/misc/migration_tools/22_to_30/rebuild_unimarc_100.pl
@@ -3,12 +3,13 @@
 #  Written by TG on 01/10/2005
 #  Revised by Joshua Ferraro on 03/31/2006
 use strict;
+#use warnings; FIXME - Bug 2505
 
 # Koha modules used
 
 use C4::Context;
-use C4::Biblio;
-use MARC::Record;
+use C4::Biblio qw( ModBiblioMarc );
+use Koha::Biblios;
 use MARC::File::USMARC;
 
 
@@ -22,9 +23,10 @@ print "Creating/updating field 100 if needed\n";
 while (my ($biblionumber,$time)=$sth->fetchrow ){
 #   my $record;
 # print "record : $biblionumber \n";
-    my $record = GetMarcBiblio($biblionumber);
+    my $biblio = Koha::Biblios->find($biblionumber);
+    my $record = $biblio ? $biblio->metadata->record : undef;
 # print "=> ".$record->as_formatted;
-    MARCmodrecord($biblionumber,$record,$time);
+    MARCmodrecord($biblionumber,$record,$time) if ($record);
 #
 }
 
@@ -49,7 +51,7 @@ sub MARCmodrecord {
             $record->insert_fields_ordered(MARC::Field->new(100,"","","a"=>"$string"));
         }
     if ($update){
-        &ModBiblioMarc($record,$biblionumber,'');
+        &ModBiblioMarc($record,$biblionumber);
         print "\r$biblionumber" unless ( $biblionumber % 100 );
     }