actually use -n argument for maximum records to dump

git-svn-id: file:///home/dpavlin/svn/Biblio-Isis/trunk@43 4670fa4d-42ec-0310-ab5b-a66af6943492

diff --git a/scripts/dump_isisdb.pl b/scripts/dump_isisdb.pl
index 19e46c2..d923ba7 100755 (executable)
--- a/scripts/dump_isisdb.pl
+++ b/scripts/dump_isisdb.pl
@@ -23,6 +23,7 @@ print "rows: ",$isis->count,"\n\n";
 
 my $min = 1;
 my $max = $isis->count;
+$max = $opt{n} if ($opt{n});
 
 for my $mfn ($min .. $max) {
        print STDERR Dumper($isis->to_hash($mfn)),"\n" if ($opt{'d'});