From: Jason Etheridge <jason@esilibrary.com>
Date: Thu, 12 Jun 2008 16:58:09 +0000 (+0000)
Subject: logic error
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=667c25bd36fd10030632eafde6c118e2a05bd912

logic error
---

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])) {