projects
/
Biblio-Isis
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
mostly documentation improvements, but also nicer output and field names
[Biblio-Isis]
/
scripts
/
dump_isis.pl
diff --git
a/scripts/dump_isis.pl
b/scripts/dump_isis.pl
index
ea59d0f
..
adbc250
100755
(executable)
--- a/
scripts/dump_isis.pl
+++ b/
scripts/dump_isis.pl
@@
-13,12
+13,13
@@
my $isis = IsisDB->new (
isisdb => $isisdb,
debug => $debug,
include_deleted => 1,
isisdb => $isisdb,
debug => $debug,
include_deleted => 1,
+# read_fdt => 1,
);
print "rows: ",$isis->{'maxmfn'},"\n\n";
for(my $mfn = 1; $mfn <= $isis->{'maxmfn'}; $mfn++) {
);
print "rows: ",$isis->{'maxmfn'},"\n\n";
for(my $mfn = 1; $mfn <= $isis->{'maxmfn'}; $mfn++) {
- print STDERR Dumper($isis->to_hash($mfn)) if ($debug);
+ print STDERR Dumper($isis->to_hash($mfn))
,"\n"
if ($debug);
print $isis->to_ascii($mfn),"\n";
}
print $isis->to_ascii($mfn),"\n";
}