From 081a8fd73d1ebcfb827af10935a2b869f4977f1f Mon Sep 17 00:00:00 2001
From: Shawn Boyette <sboyette@esilibrary.com>
Date: Mon, 22 Sep 2008 21:33:51 +0000
Subject: [PATCH] making trackers sync

---
 yaz-cleanup |    7 ++++---
 1 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/yaz-cleanup b/yaz-cleanup
index d44e4cf..1dbb089 100755
--- a/yaz-cleanup
+++ b/yaz-cleanup
@@ -173,11 +173,12 @@ sub kill_line {
 }
 
 sub dump_record {
-    my $line = <MARC>;
+    my $line = <MARC>; $count++;
+    update_context();
     until ($line =~ m|</record>|) {
         push @record, $line;
-        $line = <MARC>;
-        update_context;
+        $line = <MARC>; $count++;
+        update_context();
     }
     push @record, $line;
     write_record($EXMARC);
-- 
1.7.2.5