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

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

Return to bug 6679