From: Jason Etheridge <jason@esilibrary.com>
Date: Thu, 12 Jun 2008 16:52:34 +0000 (+0000)
Subject: no trailing tabs
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=ca7252a7b1007404efad72fc37e14853e56bf4dc

no trailing tabs
---

diff --git a/spit_csv.pl b/spit_csv.pl
index b0da245..e235ec6 100755
--- a/spit_csv.pl
+++ b/spit_csv.pl
@@ -30,10 +30,16 @@ foreach my $argnum ( 0 .. 0 ) {
 		print STDERR "WARNINGS: Record $count : " .  join(":",@warnings) . " : continuing...\n" if ( @warnings );
 
         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])) { 
-                    print STDOUT $f->subfield($desired_tags_subfields[$i+1]) . "\t";
+                    if ($first) {
+                        $first = 0;
+                    } else {
+                        print STDOUT "\t";
+                    }
+                    print STDOUT $f->subfield($desired_tags_subfields[$i+1]);
                 } 
             }
         }