don't die if ISIS database is not found, just go to next one

git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@647 13eb9ef6-21d5-0310-b721-a9d68796d827

diff --git a/all2xml.pl b/all2xml.pl
index e327b7a..94a5f06 100755 (executable)
--- a/all2xml.pl
+++ b/all2xml.pl
@@ -738,8 +738,12 @@ print STDERR "using: $type...\n";
                $import2cp = Text::Iconv->new($config->{isis_codepage},$codepage);
                my $db = new Biblio::Isis( isisdb => $isis_db );
 
-               my $max_rowid = $db->count || die "can't find maxmfn";
-$max_rowid = 200; # XXX
+               my $max_rowid = $db->count;
+
+               if (! $max_rowid) {
+                       print STDERR "FATAL: can't read database: $isis_db, skipping...\n";
+                       next;
+               }
 
                print STDERR "Reading database: $isis_db [$max_rowid rows]\n";