From 9a6cd6d7768f67a63e9d74f56b7fb71141461a9d Mon Sep 17 00:00:00 2001
From: Shawn Boyette <sboyette@esilibrary.com>
Date: Tue, 23 Sep 2008 19:09:59 +0000
Subject: [PATCH] spinner works again, yaaaaaaay

---
 marc-cleanup |    3 +--
 1 files changed, 1 insertions(+), 2 deletions(-)

diff --git a/marc-cleanup b/marc-cleanup
index 998bfa5..deb9f5f 100755
--- a/marc-cleanup
+++ b/marc-cleanup
@@ -50,7 +50,7 @@ my $sidx = 0;
 while (my $line = getline()) {
     unless ($count % 2000) {
         print "\rWorking... ", $spinner[$sidx];
-        $sidx = $sidx > $#spinner ? 0 : $sidx++;
+        $sidx = ($sidx == $#spinner) ? 0 : $sidx + 1;
     }
     update_linecontext();
 
@@ -90,7 +90,6 @@ while (my $line = getline()) {
     if ($line =~ /<subfield code="(.+?)"/) {
         my $match = $1;
         if ($match =~ /\P{IsAlnum}/) {
-            print $OUT "\n$match\n";
             edit("Junk in subfield", $line);
             next;
         }
-- 
1.7.2.5