--- trunk/scripts/dump_isisdb.pl 2005/01/01 22:39:27 29 +++ trunk/scripts/dump_isisdb.pl 2005/01/06 20:48:07 36 @@ -3,22 +3,22 @@ use strict; use blib; -use IsisDB; +use Biblio::Isis; use Data::Dumper; my $isisdb = shift @ARGV || '/data/isis_data/ps/LIBRI/LIBRI', my $debug = shift @ARGV; -my $isis = IsisDB->new ( +my $isis = Biblio::Isis->new ( isisdb => $isisdb, debug => $debug, include_deleted => 1, # read_fdt => 1, ); -print "rows: ",$isis->{'maxmfn'},"\n\n"; +print "rows: ",$isis->count,"\n\n"; -for(my $mfn = 1; $mfn <= $isis->{'maxmfn'}; $mfn++) { +for(my $mfn = 1; $mfn <= $isis->count; $mfn++) { print STDERR Dumper($isis->to_hash($mfn)),"\n" if ($debug); print $isis->to_ascii($mfn),"\n";