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

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

Return to bug 6679