From: Shawn Boyette <sboyette@esilibrary.com>
Date: Wed, 14 Jan 2009 15:27:20 +0000 (+0000)
Subject: "i'm working" output
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=07e09b509ccddb459137a98759781b6f8dcb396b

"i'm working" output
---

diff --git a/extract_holdings b/extract_holdings
index 00e0d0d..b411540 100755
--- a/extract_holdings
+++ b/extract_holdings
@@ -13,8 +13,10 @@ open X, '>', "holdings.x";
 open Z, '>', "holdings.z";
 open ALL852, '>', "holdings.all852";
 
+$| = 1;
 my $holdings = {};
 my $copyid = 0;
+my $count = 0;
 my %all852 = ( x => {}, z => {} ); # hash of all subfields in all 852s
 
 my $t = XML::Twig->new( twig_handlers => { record => \&record } );
@@ -34,6 +36,7 @@ sub record {
     for my $copy (@{$holdings->{copies}})
       { print_reports($copy) }
     $r->purge;
+    $count++; print "\r$count";
 }
 
 sub process_datafields {