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

(-)a/C4/Record.pm (-4 / +3 lines)
Lines 378-384 sub marc2csv { Link Here
378
    }
378
    }
379
379
380
    # Preprocessing
380
    # Preprocessing
381
    eval $preprocess if ($preprocess);
381
    eval {$preprocess} if ($preprocess);
382
382
383
    my $firstpass = 1;
383
    my $firstpass = 1;
384
    if ( @$itemnumbers ) {
384
    if ( @$itemnumbers ) {
Lines 395-401 sub marc2csv { Link Here
395
    }
395
    }
396
396
397
    # Postprocessing
397
    # Postprocessing
398
    eval $postprocess if ($postprocess);
398
    eval {$postprocess} if ($postprocess);
399
399
400
    return $output;
400
    return $output;
401
}
401
}
Lines 553-559 sub marcrecord2csv { Link Here
553
            }
553
            }
554
554
555
            # Field processing
555
            # Field processing
556
            eval $fieldprocessing if ($fieldprocessing);
556
            eval {$fieldprocessing} if ($fieldprocessing);
557
557
558
            push @valuesarray, $value;
558
            push @valuesarray, $value;
559
        }
559
        }
560
- 

Return to bug 6679