next if there is an error getting the biblio.

diff --git a/misc/migration_tools/rebuild_nozebra.pl b/misc/migration_tools/rebuild_nozebra.pl
index 471b5a5..ae42c9e 100755 (executable)
--- a/misc/migration_tools/rebuild_nozebra.pl
+++ b/misc/migration_tools/rebuild_nozebra.pl
@@ -80,8 +80,14 @@ my %result;
 while (my ($biblionumber) = $sth->fetchrow) {
     $i++;
     print "\r$i";
-    my $record = GetMarcBiblio($biblionumber);
-
+    my  $record;
+   eval{
+       $record = GetMarcBiblio($biblionumber);
+   };
+   if($@){
+       print "  There was some pb getting biblionumber : ".$biblionumber."\n";
+       next;
+   }
     # get title of the record (to store the 10 first letters with the index)
     my ($titletag,$titlesubfield) = GetMarcFromKohaField('biblio.title');
     my $title = lc($record->subfield($titletag,$titlesubfield));