From 667c25bd36fd10030632eafde6c118e2a05bd912 Mon Sep 17 00:00:00 2001 From: Jason Etheridge Date: Thu, 12 Jun 2008 16:58:09 +0000 Subject: [PATCH] logic error --- spit_csv.pl | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/spit_csv.pl b/spit_csv.pl index e235ec6..6b0b6b3 100755 --- a/spit_csv.pl +++ b/spit_csv.pl @@ -29,8 +29,8 @@ foreach my $argnum ( 0 .. 0 ) { print STDERR "WARNINGS: Record $count : " . join(":",@warnings) . " : continuing...\n" if ( @warnings ); + my $first = 1; for (my $i = 0; $i < scalar(@desired_tags_subfields); $i+=2) { - my $first = 1; my @tags; if ($record->field($desired_tags_subfields[$i])) { @tags = $record->field($desired_tags_subfields[$i]); } foreach my $f ( @tags ) { if ($f->subfield($desired_tags_subfields[$i+1])) { -- 1.7.2.5