From: Shawn Boyette <sboyette@esilibrary.com>
Date: Wed, 24 Sep 2008 18:59:20 +0000 (+0000)
Subject: added reccount to edit message
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=669d5a0a319c4b8aae6ce9fcb7ad85708e8a01df

added reccount to edit message
---

diff --git a/marc-cleanup b/marc-cleanup
index 3cf7198..0f2b5f8 100755
--- a/marc-cleanup
+++ b/marc-cleanup
@@ -118,7 +118,7 @@ Handles the Term::ReadLine loop
 
 sub edit {
     my ($msg, $line_in) = @_;
-    print $OUT "\r".$msg, " at line $count:\n";
+    print $OUT "\r".$msg, " at line $count (record $reccount)\n";
     print_context();
 
     while (1) {