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