View | Details | Raw Unified | Return to bug 6679
Collapse All | Expand All

(-)a/C4/Record.pm (-4 / +3 lines)
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
- 

Return to bug 6679