my $j = 0; # holdings counter
while ( $m->{data}{recs}[$i] ) {
- print HOLDINGS "BEGIN;\n\negid\thseq\t" unless $j;
+ print HOLDINGS "BEGIN;\n\negid, hseq, " unless $j;
my $rec = $m->{data}{recs}[$i];
my $k = 0; # holding-within-record pointer
# for each holdings tag in the record...
# grab the unary mappings and slug 'em in
for my $sub ( sort keys %{$rec->{tags}[$holdidx]{uni}} ) {
push @out, $rec->{tags}[$holdidx]{uni}{$sub};
- print HOLDINGS "l_", $m->name($tagid, $sub),"\t" unless $j;
+ print HOLDINGS "l_", $m->name($tagid, $sub),", " unless $j;
}
# handle holdings multis
my $idx = $rec->{tmap}{$othertag}[0]; # get index into tags struct
for my $sub ( sort keys %{$rec->{tags}[$idx]{uni}} ) {
push @out, $rec->{tags}[$idx]{uni}{$sub};
- print "l_", $m->name($rec->{tags}[$idx]{tag}, $sub), "\t" unless $j;
+ print HOLDINGS "l_", $m->name($rec->{tags}[$idx]{tag}, $sub), ", "
+ unless $j;
}
}