From: Ben Ostrowsky <ben@esilibrary.com>
Date: Fri, 30 Oct 2009 19:18:51 +0000 (+0000)
Subject: FORM=foo should not be ignored
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=8481659c9b7d2537dab3950ab52f186f6dc9dd5d

FORM=foo should not be ignored

git-svn-id: svn://nox.esilibrary.com/migration-tools@631 eee7cc8d-164e-4af6-8e1b-092a69004917
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
---

diff --git a/unicorn/unicorn_to_tsv.pl b/unicorn/unicorn_to_tsv.pl
index e864a31..a478227 100755
--- a/unicorn/unicorn_to_tsv.pl
+++ b/unicorn/unicorn_to_tsv.pl
@@ -25,8 +25,9 @@ while (<>) {
 		next;
 	}
 
-	# Is this a FORM= line (which can be ignored)?
-	if ( /^FORM=/ ) {
+	# Is this a FORM= line?
+	if ( /^FORM=(.*)/ ) {
+		$records[$serial]{'l_form'} = $1;
 		next;
 	}