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 (executable)
--- 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;
        }