516 |
warn "## ++ marc_compose($f,$sf,$v) ", dump( $m ),$/ if ($debug > 1); |
warn "## ++ marc_compose($f,$sf,$v) ", dump( $m ),$/ if ($debug > 1); |
517 |
} |
} |
518 |
|
|
519 |
warn "## marc_compose(d) ", dump( $m ),$/ if ($debug > 1); |
warn "## marc_compose current marc = ", dump( $m ),$/ if ($debug > 1); |
520 |
|
|
521 |
push @{ $marc_record->[ $marc_record_offset ] }, $m if ($#{$m} > 2); |
push @{ $marc_record->[ $marc_record_offset ] }, $m if ($#{$m} > 2); |
522 |
} |
} |
777 |
|
|
778 |
sub join_with { |
sub join_with { |
779 |
my $d = shift; |
my $d = shift; |
780 |
|
warn "### join_with('$d',",dump(@_),")\n" if ($debug > 2); |
781 |
my $v = join($d, grep { defined($_) && $_ ne '' } @_); |
my $v = join($d, grep { defined($_) && $_ ne '' } @_); |
782 |
return '' unless defined($v); |
return '' unless defined($v); |
783 |
return $v; |
return $v; |