|
Lines 383-389
sub marc2csv {
Link Here
|
| 383 |
} |
383 |
} |
| 384 |
|
384 |
|
| 385 |
# Preprocessing |
385 |
# Preprocessing |
| 386 |
eval $preprocess if ($preprocess); |
386 |
eval {$preprocess} if ($preprocess); |
| 387 |
|
387 |
|
| 388 |
my $firstpass = 1; |
388 |
my $firstpass = 1; |
| 389 |
foreach my $biblio (@$biblios) { |
389 |
foreach my $biblio (@$biblios) { |
|
Lines 392-398
sub marc2csv {
Link Here
|
| 392 |
} |
392 |
} |
| 393 |
|
393 |
|
| 394 |
# Postprocessing |
394 |
# Postprocessing |
| 395 |
eval $postprocess if ($postprocess); |
395 |
eval {$postprocess} if ($postprocess); |
| 396 |
|
396 |
|
| 397 |
return $output; |
397 |
return $output; |
| 398 |
} |
398 |
} |
|
Lines 535-541
sub marcrecord2csv {
Link Here
|
| 535 |
$value = defined $authvalues->{$_->as_string} ? $authvalues->{$_->as_string} : $_->as_string; |
535 |
$value = defined $authvalues->{$_->as_string} ? $authvalues->{$_->as_string} : $_->as_string; |
| 536 |
|
536 |
|
| 537 |
# Field processing |
537 |
# Field processing |
| 538 |
eval $fieldprocessing if ($fieldprocessing); |
538 |
eval {$fieldprocessing} if ($fieldprocessing); |
| 539 |
|
539 |
|
| 540 |
push @valuesarray, $value; |
540 |
push @valuesarray, $value; |
| 541 |
} |
541 |
} |
| 542 |
- |
|
|