@@ -, +, @@ --- 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(-) --- a/misc/migration_tools/22_to_30/missing090field.pl +++ a/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); --- a/misc/migration_tools/22_to_30/rebuild_unimarc_100.pl +++ a/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); # --