|
Lines 1530-1575
sub SetImportRecordStatus {
Link Here
|
| 1530 |
|
1530 |
|
| 1531 |
} |
1531 |
} |
| 1532 |
|
1532 |
|
| 1533 |
=head2 GetImportRecordMatches |
|
|
| 1534 |
|
| 1535 |
my $results = GetImportRecordMatches($import_record_id, $best_only); |
| 1536 |
|
| 1537 |
=cut |
| 1538 |
|
| 1539 |
sub GetImportRecordMatches { |
| 1540 |
my $import_record_id = shift; |
| 1541 |
my $best_only = @_ ? shift : 0; |
| 1542 |
|
| 1543 |
my $dbh = C4::Context->dbh; |
| 1544 |
|
| 1545 |
# FIXME currently biblio only |
| 1546 |
my $sth = $dbh->prepare_cached( |
| 1547 |
"SELECT title, author, biblionumber, |
| 1548 |
candidate_match_id, score, record_type, |
| 1549 |
chosen |
| 1550 |
FROM import_records |
| 1551 |
JOIN import_record_matches USING (import_record_id) |
| 1552 |
LEFT JOIN biblio ON (biblionumber = candidate_match_id) |
| 1553 |
WHERE import_record_id = ? |
| 1554 |
ORDER BY score DESC, biblionumber DESC" |
| 1555 |
); |
| 1556 |
$sth->bind_param( 1, $import_record_id ); |
| 1557 |
my $results = []; |
| 1558 |
$sth->execute(); |
| 1559 |
while ( my $row = $sth->fetchrow_hashref ) { |
| 1560 |
if ( $row->{'record_type'} eq 'auth' ) { |
| 1561 |
$row->{'authorized_heading'} = GetAuthorizedHeading( { authid => $row->{'candidate_match_id'} } ); |
| 1562 |
} |
| 1563 |
next if ( $row->{'record_type'} eq 'biblio' && not $row->{'biblionumber'} ); |
| 1564 |
push @$results, $row; |
| 1565 |
last if $best_only; |
| 1566 |
} |
| 1567 |
$sth->finish(); |
| 1568 |
|
| 1569 |
return $results; |
| 1570 |
|
| 1571 |
} |
| 1572 |
|
| 1573 |
=head2 SetImportRecordMatches |
1533 |
=head2 SetImportRecordMatches |
| 1574 |
|
1534 |
|
| 1575 |
SetImportRecordMatches($import_record_id, @matches); |
1535 |
SetImportRecordMatches($import_record_id, @matches); |
| 1576 |
- |
|
|