--- branches/hidra/all2xml.pl 2005/01/27 21:17:47 652 +++ branches/hidra/all2xml.pl 2005/02/04 15:00:24 658 @@ -1,7 +1,7 @@ #!/usr/bin/perl -w use strict; -use Biblio::Isis; +use Biblio::Isis 0.12; use Getopt::Std; use Data::Dumper; use XML::Simple; @@ -738,13 +738,13 @@ $import2cp = Text::Iconv->new($config->{isis_codepage},$codepage); my $db = new Biblio::Isis( isisdb => $isis_db ); - my $max_rowid = $db->count; - - if (! $max_rowid) { + if (! $db) { print STDERR "FATAL: can't read ISIS database: $isis_db, skipping...\n"; next; } + my $max_rowid = $db->count; + print STDERR "Reading database: $isis_db [$max_rowid rows]\n"; $path = $database;