From a89d60e88bb6d6ead99921c447dce36a9e651078 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 25 Aug 2017 10:34:48 -0300 Subject: [PATCH] Bug 19040: Update 2 occurrences of GetMarcBiblio in 22_to_30 Signed-off-by: Jonathan Druart --- misc/migration_tools/22_to_30/missing090field.pl | 2 +- misc/migration_tools/22_to_30/rebuild_unimarc_100.pl | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/misc/migration_tools/22_to_30/missing090field.pl b/misc/migration_tools/22_to_30/missing090field.pl index bfa85760af..5d386330ef 100755 --- a/misc/migration_tools/22_to_30/missing090field.pl +++ b/misc/migration_tools/22_to_30/missing090field.pl @@ -26,7 +26,7 @@ $sth->execute(); my $i=1; while (my ($biblionumber,$biblioitemnumber)=$sth->fetchrow ){ - my $record = GetMarcBiblio($biblionumber); + my $record = GetMarcBiblio({ biblionumber => $biblionumber }); print "."; print "\r$i" unless $i %100; MARCmodbiblionumber($biblionumber,$biblioitemnumber,$record); 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 320ced2684..3b3e3cdd91 100755 --- a/misc/migration_tools/22_to_30/rebuild_unimarc_100.pl +++ b/misc/migration_tools/22_to_30/rebuild_unimarc_100.pl @@ -29,7 +29,7 @@ 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 $record = GetMarcBiblio({ biblionumber => $biblionumber }); # print "=> ".$record->as_formatted; MARCmodrecord($biblionumber,$record,$time) if ($record); # -- 2.39.5