--- trunk/all2xml.pl 2005/01/16 18:29:24 631 +++ trunk/all2xml.pl 2005/01/16 18:35:24 632 @@ -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 @@ 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";