|
Lines 378-384
sub marc2csv {
Link Here
|
| 378 |
} |
378 |
} |
| 379 |
|
379 |
|
| 380 |
# Preprocessing |
380 |
# Preprocessing |
| 381 |
eval $preprocess if ($preprocess); |
381 |
eval {$preprocess} if ($preprocess); |
| 382 |
|
382 |
|
| 383 |
my $firstpass = 1; |
383 |
my $firstpass = 1; |
| 384 |
if ( @$itemnumbers ) { |
384 |
if ( @$itemnumbers ) { |
|
Lines 395-401
sub marc2csv {
Link Here
|
| 395 |
} |
395 |
} |
| 396 |
|
396 |
|
| 397 |
# Postprocessing |
397 |
# Postprocessing |
| 398 |
eval $postprocess if ($postprocess); |
398 |
eval {$postprocess} if ($postprocess); |
| 399 |
|
399 |
|
| 400 |
return $output; |
400 |
return $output; |
| 401 |
} |
401 |
} |
|
Lines 553-559
sub marcrecord2csv {
Link Here
|
| 553 |
} |
553 |
} |
| 554 |
|
554 |
|
| 555 |
# Field processing |
555 |
# Field processing |
| 556 |
eval $fieldprocessing if ($fieldprocessing); |
556 |
eval {$fieldprocessing} if ($fieldprocessing); |
| 557 |
|
557 |
|
| 558 |
push @valuesarray, $value; |
558 |
push @valuesarray, $value; |
| 559 |
} |
559 |
} |
| 560 |
- |
|
|