Lines 380-386
sub marc2csv {
Link Here
|
380 |
} |
380 |
} |
381 |
|
381 |
|
382 |
# Preprocessing |
382 |
# Preprocessing |
383 |
eval $preprocess if ($preprocess); |
383 |
eval {$preprocess} if ($preprocess); |
384 |
|
384 |
|
385 |
my $firstpass = 1; |
385 |
my $firstpass = 1; |
386 |
if ( @$itemnumbers ) { |
386 |
if ( @$itemnumbers ) { |
Lines 397-403
sub marc2csv {
Link Here
|
397 |
} |
397 |
} |
398 |
|
398 |
|
399 |
# Postprocessing |
399 |
# Postprocessing |
400 |
eval $postprocess if ($postprocess); |
400 |
eval {$postprocess} if ($postprocess); |
401 |
|
401 |
|
402 |
return $output; |
402 |
return $output; |
403 |
} |
403 |
} |
Lines 576-582
sub marcrecord2csv {
Link Here
|
576 |
# Field processing |
576 |
# Field processing |
577 |
my $marcfield = $tag->{fieldtag}; # This line fixes a retrocompatibility concern |
577 |
my $marcfield = $tag->{fieldtag}; # This line fixes a retrocompatibility concern |
578 |
# The "processing" could be based on the $marcfield variable. |
578 |
# The "processing" could be based on the $marcfield variable. |
579 |
eval $fieldprocessing if ($fieldprocessing); |
579 |
eval {$fieldprocessing} if ($fieldprocessing); |
580 |
|
580 |
|
581 |
push @loop_values, $value; |
581 |
push @loop_values, $value; |
582 |
} |
582 |
} |
583 |
- |
|
|