Lines 92-102
sub _try_matcher {
Link Here
|
92 |
my $matched_id; |
92 |
my $matched_id; |
93 |
my @matches = $matcher->get_matches($marc_record, MAX_MATCHES); |
93 |
my @matches = $matcher->get_matches($marc_record, MAX_MATCHES); |
94 |
if (@matches){ |
94 |
if (@matches){ |
95 |
#FIXME: You can remove this sort once Bug 17710 is pushed |
|
|
96 |
@matches = sort { |
97 |
$b->{'score'} cmp $a->{'score'} or |
98 |
$b->{'record_id'} cmp $a->{'record_id'} |
99 |
} @matches; |
100 |
my $bestrecordmatch = shift @matches; |
95 |
my $bestrecordmatch = shift @matches; |
101 |
if ($bestrecordmatch && $bestrecordmatch->{record_id}){ |
96 |
if ($bestrecordmatch && $bestrecordmatch->{record_id}){ |
102 |
$matched_id = $bestrecordmatch->{record_id}; |
97 |
$matched_id = $bestrecordmatch->{record_id}; |
103 |
- |
|
|