projects
/
Biblio-Isis
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
partial fix for physically deleted records, but logic could benefit from a
[Biblio-Isis]
/
scripts
/
dump_isis.pl
diff --git
a/scripts/dump_isis.pl
b/scripts/dump_isis.pl
index
bd0e379
..
adbc250
100755
(executable)
--- a/
scripts/dump_isis.pl
+++ b/
scripts/dump_isis.pl
@@
-6,14
+6,20
@@
use blib;
use IsisDB;
use Data::Dumper;
use IsisDB;
use Data::Dumper;
+my $isisdb = shift @ARGV || '/data/isis_data/ps/LIBRI/LIBRI',
+my $debug = shift @ARGV;
+
my $isis = IsisDB->new (
my $isis = IsisDB->new (
- isisdb => shift @ARGV || '/data/isis_data/ps/LIBRI/LIBRI',
- debug => shift @ARGV,
+ 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)),"\n" if ($debug);
print $isis->to_ascii($mfn),"\n";
}
print $isis->to_ascii($mfn),"\n";
}