From 669d5a0a319c4b8aae6ce9fcb7ad85708e8a01df Mon Sep 17 00:00:00 2001
From: Shawn Boyette <sboyette@esilibrary.com>
Date: Wed, 24 Sep 2008 18:59:20 +0000
Subject: [PATCH] added reccount to edit message

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

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) {
-- 
1.7.2.5