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

(-)a/C4/Matcher.pm (-4 / +2 lines)
Lines 726-732 sub get_matches { Link Here
726
        # get rid of any that don't meet the required checks
726
        # get rid of any that don't meet the required checks
727
        $matches = {
727
        $matches = {
728
            map {
728
            map {
729
                _passes_required_checks( $source_record, $_, $self->{'required_checks'} )
729
                _passes_required_checks( $source_record, $matches->{$_}->{'record'}, $self->{'required_checks'} )
730
                  ? ( $_ => $matches->{$_} )
730
                  ? ( $_ => $matches->{$_} )
731
                  : ()
731
                  : ()
732
            } keys %$matches
732
            } keys %$matches
Lines 790-797 sub dump { Link Here
790
}
790
}
791
791
792
sub _passes_required_checks {
792
sub _passes_required_checks {
793
    my ($source_record, $target_blob, $matchchecks) = @_;
793
    my ($source_record, $target_record, $matchchecks) = @_;
794
    my $target_record = MARC::Record->new_from_usmarc($target_blob); # FIXME -- need to avoid parsing record twice
795
794
796
    # no checks supplied == automatic pass
795
    # no checks supplied == automatic pass
797
    return 1 if $#{ $matchchecks } == -1;
796
    return 1 if $#{ $matchchecks } == -1;
798
- 

Return to bug 24348