540 |
|
|
541 |
warn "### marc_compose input subfields = ", dump(@_),$/ if ($debug > 2); |
warn "### marc_compose input subfields = ", dump(@_),$/ if ($debug > 2); |
542 |
|
|
543 |
|
if ($#_ % 2 != 1) { |
544 |
|
die "ERROR: marc_compose",dump($f,@_)," not valid (must be even).\nDo you need to add first() or join() around some argument?\n"; |
545 |
|
} |
546 |
|
|
547 |
while (@_) { |
while (@_) { |
548 |
my $sf = shift or die "marc_compose $f needs subfield"; |
my $sf = shift; |
549 |
my $v = shift; |
my $v = shift; |
550 |
|
|
551 |
next unless (defined($v) && $v !~ /^\s*$/); |
next unless (defined($v) && $v !~ /^\s*$/); |