wrapping write to *.iso file in eval{}, to handle failure, caused by bad record.

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

diff --git a/misc/migration_tools/rebuild_zebra_idx.pl b/misc/migration_tools/rebuild_zebra_idx.pl
index 680c00e..ecc0909 100755 (executable)
--- a/misc/migration_tools/rebuild_zebra_idx.pl
+++ b/misc/migration_tools/rebuild_zebra_idx.pl
@@ -43,7 +43,8 @@ while ((my $biblionumber) = $sth->fetchrow) {
        my $record = GetMarcBiblio($biblionumber);
        my $filename = $cgidir."/tmp/BIBLIO".$biblionumber.".iso2709";
        open F,"> $filename";
-       print F $record->as_usmarc();
+    eval {print F $record->as_usmarc(); };
+    warn "ERROR: writing biblio $biblionumber failed" if $@;
        close F;
        $i++;
        print "\r$i" unless ($i % 100);