projects
/
migration-tools.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
(parent:
ca7252a
)
logic error
author
Jason Etheridge
<jason@esilibrary.com>
Thu, 12 Jun 2008 16:58:09 +0000 (16:58 +0000)
committer
Jason Etheridge
<jason@esilibrary.com>
Thu, 12 Jun 2008 16:58:09 +0000 (16:58 +0000)
spit_csv.pl
patch
|
blob
|
history
diff --git
a/spit_csv.pl
b/spit_csv.pl
index
e235ec6
..
6b0b6b3
100755
(executable)
--- 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])) {