|
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 |
- |
|
|