X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=unicorn%2Funicorn_patrons_to_tsv.pl;fp=unicorn%2Funicorn_patrons_to_tsv.pl;h=ca0d8f017330700273d058e98b6e719f86f55ec9;hp=94c03dd6e27f84394e30dd5bcae2312de00870ff;hb=08b9864b2832b62f1fe3cf1cea90a1fa60209f58;hpb=b92ef7c84d4fb13b28c63a138f4ab1ca67cff81c diff --git a/unicorn/unicorn_patrons_to_tsv.pl b/unicorn/unicorn_patrons_to_tsv.pl index 94c03dd..ca0d8f0 100755 --- a/unicorn/unicorn_patrons_to_tsv.pl +++ b/unicorn/unicorn_patrons_to_tsv.pl @@ -205,8 +205,9 @@ for (my $u = 0; $u < @records; $u++) { } - # Print the results +print join("\t", @output_fields) . "\n"; + for (my $u = 0; $u < @records; $u++) { foreach $f (@output_fields) { if (defined $records[$u]{$f}) {