From 78a09c5ae3692336e4a1810af151335c3310cf44 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Thu, 17 Feb 2005 18:11:57 +0000 Subject: [PATCH] bugfix: check Isis database error in correct place git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@673 13eb9ef6-21d5-0310-b721-a9d68796d827 --- all2xml.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/all2xml.pl b/all2xml.pl index 8f7e26c..1c5123b 100755 --- a/all2xml.pl +++ b/all2xml.pl @@ -742,13 +742,13 @@ 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 if ($db); - - if (! $max_rowid) { + if (! $db) { print STDERR "FATAL: can't read ISIS database: $isis_db, skipping...\n"; next; } + my $max_rowid = $db->count if ($db); + print STDERR "Reading database: $isis_db [$max_rowid rows]\n"; for (my $row_id = 1; $row_id <= $max_rowid; $row_id++ ) { -- 2.20.1