Lines 355-361
sub marc2csv {
Link Here
|
355 |
} |
355 |
} |
356 |
|
356 |
|
357 |
# Preprocessing |
357 |
# Preprocessing |
358 |
eval $preprocess if ($preprocess); |
358 |
eval {$preprocess} if ($preprocess); |
359 |
|
359 |
|
360 |
my $firstpass = 1; |
360 |
my $firstpass = 1; |
361 |
foreach my $biblio (@$biblios) { |
361 |
foreach my $biblio (@$biblios) { |
Lines 364-370
sub marc2csv {
Link Here
|
364 |
} |
364 |
} |
365 |
|
365 |
|
366 |
# Postprocessing |
366 |
# Postprocessing |
367 |
eval $postprocess if ($postprocess); |
367 |
eval {$postprocess} if ($postprocess); |
368 |
|
368 |
|
369 |
return $output; |
369 |
return $output; |
370 |
} |
370 |
} |
Lines 507-513
sub marcrecord2csv {
Link Here
|
507 |
$value = defined $authvalues->{$_->as_string} ? $authvalues->{$_->as_string} : $_->as_string; |
507 |
$value = defined $authvalues->{$_->as_string} ? $authvalues->{$_->as_string} : $_->as_string; |
508 |
|
508 |
|
509 |
# Field processing |
509 |
# Field processing |
510 |
eval $fieldprocessing if ($fieldprocessing); |
510 |
eval {$fieldprocessing} if ($fieldprocessing); |
511 |
|
511 |
|
512 |
push @valuesarray, $value; |
512 |
push @valuesarray, $value; |
513 |
} |
513 |
} |
514 |
- |
|
|