|
Lines 1460-1502
sub SetImportRecordStatus {
Link Here
|
| 1460 |
|
1460 |
|
| 1461 |
} |
1461 |
} |
| 1462 |
|
1462 |
|
| 1463 |
=head2 GetImportRecordMatches |
|
|
| 1464 |
|
| 1465 |
my $results = GetImportRecordMatches($import_record_id, $best_only); |
| 1466 |
|
| 1467 |
=cut |
| 1468 |
|
| 1469 |
sub GetImportRecordMatches { |
| 1470 |
my $import_record_id = shift; |
| 1471 |
my $best_only = @_ ? shift : 0; |
| 1472 |
|
| 1473 |
my $dbh = C4::Context->dbh; |
| 1474 |
# FIXME currently biblio only |
| 1475 |
my $sth = $dbh->prepare_cached("SELECT title, author, biblionumber, |
| 1476 |
candidate_match_id, score, record_type, |
| 1477 |
chosen |
| 1478 |
FROM import_records |
| 1479 |
JOIN import_record_matches USING (import_record_id) |
| 1480 |
LEFT JOIN biblio ON (biblionumber = candidate_match_id) |
| 1481 |
WHERE import_record_id = ? |
| 1482 |
ORDER BY score DESC, biblionumber DESC"); |
| 1483 |
$sth->bind_param(1, $import_record_id); |
| 1484 |
my $results = []; |
| 1485 |
$sth->execute(); |
| 1486 |
while (my $row = $sth->fetchrow_hashref) { |
| 1487 |
if ($row->{'record_type'} eq 'auth') { |
| 1488 |
$row->{'authorized_heading'} = GetAuthorizedHeading( { authid => $row->{'candidate_match_id'} } ); |
| 1489 |
} |
| 1490 |
next if ($row->{'record_type'} eq 'biblio' && not $row->{'biblionumber'}); |
| 1491 |
push @$results, $row; |
| 1492 |
last if $best_only; |
| 1493 |
} |
| 1494 |
$sth->finish(); |
| 1495 |
|
| 1496 |
return $results; |
| 1497 |
|
| 1498 |
} |
| 1499 |
|
| 1500 |
=head2 SetImportRecordMatches |
1463 |
=head2 SetImportRecordMatches |
| 1501 |
|
1464 |
|
| 1502 |
SetImportRecordMatches($import_record_id, @matches); |
1465 |
SetImportRecordMatches($import_record_id, @matches); |
| 1503 |
- |
|
|