From 663eb1edd6cd213305c615d0516d47cf04c2d885 Mon Sep 17 00:00:00 2001 From: Henri-Damien LAURENT Date: Wed, 26 Aug 2009 01:44:21 +0200 Subject: [PATCH] Adding some error proof on GetMarcRecord Signed-off-by: Galen Charlton --- misc/migration_tools/22_to_30/rebuild_unimarc_100.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 60b1b878fe..1ef4049fbd 100755 --- a/misc/migration_tools/22_to_30/rebuild_unimarc_100.pl +++ b/misc/migration_tools/22_to_30/rebuild_unimarc_100.pl @@ -30,7 +30,7 @@ while (my ($biblionumber,$time)=$sth->fetchrow ){ # print "record : $biblionumber \n"; my $record = GetMarcBiblio($biblionumber); # print "=> ".$record->as_formatted; - MARCmodrecord($biblionumber,$record,$time); + MARCmodrecord($biblionumber,$record,$time) if ($record); # } -- 2.39.5