use Bibio::Isis istead of IsisDB (same module, but name is changed for CPAN

[webpac] / all2xml.pl

diff --git a/all2xml.pl b/all2xml.pl
index 3fc1299..f9533dd 100755 (executable)
--- a/all2xml.pl
+++ b/all2xml.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 use strict;
-use IsisDB;
+use Biblio::Isis;
 use Getopt::Std;
 use Data::Dumper;
 use XML::Simple;
@@ -737,9 +737,9 @@ print STDERR "using: $type...\n";
                my $isis_db = $cfg -> val($database, 'isis_db') || die "$database doesn't have 'isis_db' defined!";
 
                $import2cp = Text::Iconv->new($config->{isis_codepage},$codepage);
-               my $db = new IsisDB( isisdb => $isis_db );
+               my $db = new Biblio::Isis( isisdb => $isis_db );
 
-               my $max_rowid = $db->{'maxmfn'} || die "can't find maxmfn";
+               my $max_rowid = $db->count || die "can't find maxmfn";
 
                print STDERR "Reading database: $isis_db [$max_rowid rows]\n";