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

(-)a/C4/Record.pm (-4 / +3 lines)
Lines 380-386 sub marc2csv { Link Here
380
    }
380
    }
381
381
382
    # Preprocessing
382
    # Preprocessing
383
    eval $preprocess if ($preprocess);
383
    eval {$preprocess} if ($preprocess);
384
384
385
    my $firstpass = 1;
385
    my $firstpass = 1;
386
    if ( @$itemnumbers ) {
386
    if ( @$itemnumbers ) {
Lines 397-403 sub marc2csv { Link Here
397
    }
397
    }
398
398
399
    # Postprocessing
399
    # Postprocessing
400
    eval $postprocess if ($postprocess);
400
    eval {$postprocess} if ($postprocess);
401
401
402
    return $output;
402
    return $output;
403
}
403
}
Lines 576-582 sub marcrecord2csv { Link Here
576
                        # Field processing
576
                        # Field processing
577
                        my $marcfield = $tag->{fieldtag}; # This line fixes a retrocompatibility concern
577
                        my $marcfield = $tag->{fieldtag}; # This line fixes a retrocompatibility concern
578
                                                          # The "processing" could be based on the $marcfield variable.
578
                                                          # The "processing" could be based on the $marcfield variable.
579
                        eval $fieldprocessing if ($fieldprocessing);
579
                        eval {$fieldprocessing} if ($fieldprocessing);
580
580
581
                        push @loop_values, $value;
581
                        push @loop_values, $value;
582
                    }
582
                    }
583
- 

Return to bug 6679