holdings dump status msg now counts holdings instead of records

diff --git a/extract_holdings b/extract_holdings
index cf3e4fd..d807de7 100755 (executable)
--- a/extract_holdings
+++ b/extract_holdings
@@ -47,7 +47,6 @@ sub extract_holdings {
         for my $holdidx ( @{$rec->{tmap}{ $c->{holdings} }} ) {
             my $tagid = $rec->{tags}[$holdidx]{tag};
 
-            print STDOUT "\r$i";
             my @out = ();            # clear the output buffer
             push @out, $rec->{egid}; # slug in the egid first thing
             print "BEGIN;\n\n" unless $i;
@@ -87,8 +86,9 @@ sub extract_holdings {
             print "\n" if ($i == 1);
             print join("\t", @out);
             print "\n";
+            print STDOUT "\r$i";
+            $i++;
         }
-        $i++;
     }
     select STDOUT;
     print "\n";