making trackers sync

[migration-tools.git] / yaz-cleanup

diff --git a/yaz-cleanup b/yaz-cleanup
index d44e4cf..1dbb089 100755 (executable)
--- 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);