X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=unicorn%2Funicorn_to_tsv.pl;h=a47822708de9b26a7b2afe3343ef2d605689e990;hp=e864a3177fd9b343b2cc6d825f87f8e40da72963;hb=8481659c9b7d2537dab3950ab52f186f6dc9dd5d;hpb=9333c7283a057acdfc93ec27b835ace56fdac6b0

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;
 	}