X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=unicorn%2Funicorn_patrons_to_tsv.pl;h=6960d4998551a64390b5d7e3ed1dda861ef53071;hp=18c5a9e81ab35325b6f8bcc2a5409ebde9bcef64;hb=a8016c4258f1e4ca810a00070fe81ee30daf493d;hpb=67b239a49a353f1c699185d23945ec64dd696776

diff --git a/unicorn/unicorn_patrons_to_tsv.pl b/unicorn/unicorn_patrons_to_tsv.pl
index 18c5a9e..6960d49 100755
--- a/unicorn/unicorn_patrons_to_tsv.pl
+++ b/unicorn/unicorn_patrons_to_tsv.pl
@@ -25,6 +25,11 @@ while (<>) {
 		next;
 	}
 
+	# Is this a FORM= line (which can be ignored)?
+	if ( /^FORM=/ ) {
+		next;
+	}
+
 	# If this isn't the start of the new record, it's a new line in the present record.
 	$line++;