added reccount to edit message

[migration-tools.git] / marc-cleanup

diff --git a/marc-cleanup b/marc-cleanup
index 3cf7198..0f2b5f8 100755 (executable)
--- 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) {