389 |
|
|
390 |
# we will skip delimiter before first occurence of field! |
# we will skip delimiter before first occurence of field! |
391 |
push @out, $del unless($found_any->{$fld_type} == 1); |
push @out, $del unless($found_any->{$fld_type} == 1); |
392 |
push @out, $tmp; |
push @out, $tmp if ($tmp); |
393 |
} |
} |
394 |
$f_step++; |
$f_step++; |
395 |
} |
} |
658 |
if ($$rec->{$f}->[$i] =~ /HASH/o) { |
if ($$rec->{$f}->[$i] =~ /HASH/o) { |
659 |
my $out; |
my $out; |
660 |
foreach my $k (keys %{$$rec->{$f}->[$i]}) { |
foreach my $k (keys %{$$rec->{$f}->[$i]}) { |
661 |
$out .= '$' . $k .':' . $$rec->{$f}->[$i]->{$k}." "; |
my $v = $$rec->{$f}->[$i]->{$k}; |
662 |
|
$out .= '$' . $k .':' . $v if ($v); |
663 |
} |
} |
664 |
return $out; |
return $out; |
665 |
} else { |
} else { |