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 |
- |
|
|