From f5a8af325784decffc7fd80a13521bf76ee603d4 Mon Sep 17 00:00:00 2001
From: Shawn Boyette <sboyette@esilibrary.com>
Date: Thu, 18 Jun 2009 18:23:35 +0000
Subject: [PATCH] holdings dump status msg now counts holdings instead of records

---
 extract_holdings |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/extract_holdings b/extract_holdings
index cf3e4fd..d807de7 100755
--- 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";
-- 
1.7.2.5