print number of rows

[Biblio-Isis] / scripts / dump_isis.pl

diff --git a/scripts/dump_isis.pl b/scripts/dump_isis.pl
index 5e2942d..b4ea742 100755 (executable)
--- a/scripts/dump_isis.pl
+++ b/scripts/dump_isis.pl
@@ -10,6 +10,8 @@ my $isis = IsisDB->new (
        isisdb => '/data/isis_data/ps/LIBRI/LIBRI',
 );
 
+print "rows: ",$isis->{'maxmfn'},"\n\n";
+
 for(my $mfn = 1; $mfn <= $isis->{'maxmfn'}; $mfn++) {
        print $isis->to_ascii($mfn),"\n";