731 |
} |
} |
732 |
|
|
733 |
if ($eval_code) { |
if ($eval_code) { |
734 |
my $eval = $self->fill_in($rec,$eval_code,$i); |
my $eval = $self->fill_in($rec,$eval_code,$i) || return; |
735 |
$log->debug("about to eval{$eval} format: $out"); |
$log->debug("about to eval{$eval} format: $out"); |
736 |
return if (! $self->_eval($eval)); |
return if (! $self->_eval($eval)); |
737 |
} |
} |
927 |
# delimiter (or ,) |
# delimiter (or ,) |
928 |
my $d = $tag->{'delimiter'}; |
my $d = $tag->{'delimiter'}; |
929 |
# default delimiter |
# default delimiter |
930 |
$d ||= ", "; |
$d ||= " "; |
931 |
|
|
932 |
my $last = pop @{$row->{$type}}; |
my $last = pop @{$row->{$type}}; |
933 |
$d = "" if (! $last); |
$d = "" if (! $last); |