skipping wrong XMLs when rebuilding nozebra indexes

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/misc/migration_tools/rebuild_nozebra.pl b/misc/migration_tools/rebuild_nozebra.pl
index 4861b51..4ddb2f8 100755 (executable)
--- a/misc/migration_tools/rebuild_nozebra.pl
+++ b/misc/migration_tools/rebuild_nozebra.pl
@@ -83,16 +83,17 @@ $sth->execute();
 my $i=0;
 my %result;
 while (my ($biblionumber) = $sth->fetchrow) {
-    $i++;
-    print "\r$i";
-    my  $record;
-   eval{
-       $record = GetMarcBiblio($biblionumber);
-   };
-   if($@){
-       print "  There was some pb getting biblionumber : ".$biblionumber."\n";
-       next;
-   }
+        $i++;
+        print "\r$i";
+        my  $record;
+    eval{
+            $record = GetMarcBiblio($biblionumber);
+    };
+    if($@){
+            print "  There was some pb getting biblionumber : ".$biblionumber."\n";
+            next;
+    }
+    next unless $record;
     # 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));