From: Shawn Boyette <sboyette@esilibrary.com>
Date: Wed, 5 Nov 2008 19:57:08 +0000 (+0000)
Subject: added prev_line, next_line
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=9ab56fa35e6b5c4138327a8330d85bf58db56eaf

added prev_line, next_line
---

diff --git a/marc-cleanup b/marc-cleanup
index fb4f702..b3e3b73 100755
--- a/marc-cleanup
+++ b/marc-cleanup
@@ -36,6 +36,8 @@ my %commands = ( c => \&print_context,
                  k => \&kill_line,
                  o => \&show_original,
                  m => \&merge_lines,
+                 n => \&next_line,
+                 p => \&prev_line,
                  s => \&substitute,
                  t => \&commit_edit,
                  x => \&dump_record,
@@ -339,9 +341,8 @@ sub merge_lines {
     my @a = @record[0 .. $recptr - 1];
     my @b = @record[$recptr + 1 .. $#record];
     @record = (@a, @b);
-    # move recorde pointer to previous line
-    $recptr--;
-    print_linecontext();
+    # move record pointer to previous line
+    prev_line();
     return 0;
 }
 
@@ -360,6 +361,18 @@ sub dump_record {
     return 1;
 }
 
+sub next_line {
+    $recptr++;
+    print_linecontext();
+    return 0;
+}
+
+sub prev_line {
+    $recptr--;
+    print_linecontext();
+    return 0;
+}
+
 sub commit_edit { return 1 }
 
 sub show_original {