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