From: Shawn Boyette <sboyette@esilibrary.com>
Date: Thu, 18 Jun 2009 18:23:35 +0000 (+0000)
Subject: holdings dump status msg now counts holdings instead of records
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=f5a8af325784decffc7fd80a13521bf76ee603d4

holdings dump status msg now counts holdings instead of records
---

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";