projects
/
Biblio-Isis
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
new api version
[Biblio-Isis]
/
scripts
/
dump_isisdb.pl
diff --git
a/scripts/dump_isisdb.pl
b/scripts/dump_isisdb.pl
index
adbc250
..
0a5fb51
100755
(executable)
--- a/
scripts/dump_isisdb.pl
+++ b/
scripts/dump_isisdb.pl
@@
-16,9
+16,9
@@
my $isis = IsisDB->new (
# read_fdt => 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";
print STDERR Dumper($isis->to_hash($mfn)),"\n" if ($debug);
print $isis->to_ascii($mfn),"\n";