From: root <root@localhost.(none)>
Date: Tue, 14 Oct 2008 08:12:51 +0000 (+0200)
Subject: Adding some error proof on GetMarcRecord
X-Git-Tag: n_acq_a_porter~11
X-Git-Url: http://git.rot13.org/?p=koha.git;a=commitdiff_plain;h=3c41e9a60995651b68b174801a941099eb16206e

Adding some error proof on GetMarcRecord
---

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);
 #
 }