From 8481659c9b7d2537dab3950ab52f186f6dc9dd5d Mon Sep 17 00:00:00 2001 From: Ben Ostrowsky Date: Fri, 30 Oct 2009 19:18:51 +0000 Subject: [PATCH] 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 --- unicorn/unicorn_to_tsv.pl | 5 +++-- 1 files changed, 3 insertions(+), 2 deletions(-) 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; } -- 1.7.2.5