added -v to dump script which will display erased records and empty subfields

[Biblio-Isis] / scripts / dump_isisdb.pl

diff --git a/scripts/dump_isisdb.pl b/scripts/dump_isisdb.pl
index fe7c98c..c6f47ba 100755 (executable)
--- a/scripts/dump_isisdb.pl
+++ b/scripts/dump_isisdb.pl
@@ -3,7 +3,7 @@
 use strict;
 use blib;
 
 use strict;
 use blib;
 

-use Biblio::Isis;
+use Biblio::Isis 0.24;

 use Getopt::Std;
 
 BEGIN {
 use Getopt::Std;
 
 BEGIN {


@@ -17,15 +17,16 @@ BEGIN {
 }
 
 my %opt;
 }
 
 my %opt;

-getopts('do:l:', \%opt);
+getopts('do:l:v', \%opt);

 
 

-my $isisdb = shift @ARGV || die "usage: $0 [-o offset] [-l limit] [-d] /path/to/isis/BIBL\n";
+my $isisdb = shift @ARGV || die "usage: $0 [-v] [-o offset] [-l limit] [-d] /path/to/isis/BIBL\n";

 
 my $isis = Biblio::Isis->new (
        isisdb => $isisdb,
        debug => $opt{'d'} ? 2 : 0,
 
 my $isis = Biblio::Isis->new (
        isisdb => $isisdb,
        debug => $opt{'d'} ? 2 : 0,

-       include_deleted => 1,
+       include_deleted => $opt{'v'},

 #      read_fdt => 1,
 #      read_fdt => 1,

+       ignore_empty_subfields => $opt{'v'} ? 0 : 1,

 );
 
 print "rows: ",$isis->count,"\n\n";
 );
 
 print "rows: ",$isis->count,"\n\n";