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