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

(-)a/C4/Matcher.pm (-2 / +12 lines)
Lines 30-35 use Koha::Util::Normalize qw( Link Here
30
    remove_spaces
30
    remove_spaces
31
    upper_case
31
    upper_case
32
);
32
);
33
use C4::AuthoritiesMarc qw( GetAuthority );
33
34
34
=head1 NAME
35
=head1 NAME
35
36
Lines 700-707 sub get_matches { Link Here
700
701
701
            foreach my $result (@$authresults) {
702
            foreach my $result (@$authresults) {
702
                my $id = $result->{authid};
703
                my $id = $result->{authid};
704
                my $target_record = GetAuthority($id);
703
                $matches->{$id}->{score} += $matchpoint->{'score'};
705
                $matches->{$id}->{score} += $matchpoint->{'score'};
704
                $matches->{$id}->{record} = $id;
706
                $matches->{$id}->{record} = $target_record;
705
            }
707
            }
706
        }
708
        }
707
    }
709
    }
Lines 729-734 sub get_matches { Link Here
729
        }
731
        }
730
    } elsif ($self->{'record_type'} eq 'authority') {
732
    } elsif ($self->{'record_type'} eq 'authority') {
731
        require C4::AuthoritiesMarc;
733
        require C4::AuthoritiesMarc;
734
        # get rid of any that don't meet the required checks
735
        $matches = {
736
            map {
737
                _passes_required_checks( $source_record, $matches->{$_}->{'record'}, $self->{'required_checks'} )
738
                  ? ( $_ => $matches->{$_} )
739
                  : ()
740
            } keys %$matches
741
        };
742
732
        foreach my $id (keys %$matches) {
743
        foreach my $id (keys %$matches) {
733
            push @results, {
744
            push @results, {
734
                record_id => $id,
745
                record_id => $id,
735
- 

Return to bug 26611