Lines 365-376
sub import_records_list {
Link Here
|
365 |
|
365 |
|
366 |
my $match = GetImportRecordMatches($record->{'import_record_id'}, 1); |
366 |
my $match = GetImportRecordMatches($record->{'import_record_id'}, 1); |
367 |
my $match_citation = ''; |
367 |
my $match_citation = ''; |
|
|
368 |
my $match_id; |
368 |
if ($#$match > -1) { |
369 |
if ($#$match > -1) { |
369 |
if ($match->[0]->{'record_type'} eq 'biblio') { |
370 |
if ($match->[0]->{'record_type'} eq 'biblio') { |
370 |
$match_citation .= $match->[0]->{'title'} if defined($match->[0]->{'title'}); |
371 |
$match_citation .= $match->[0]->{'title'} if defined($match->[0]->{'title'}); |
371 |
$match_citation .= ' ' . $match->[0]->{'author'} if defined($match->[0]->{'author'}); |
372 |
$match_citation .= ' ' . $match->[0]->{'author'} if defined($match->[0]->{'author'}); |
|
|
373 |
$match_id = $match->[0]->{'biblionumber'}; |
372 |
} elsif ($match->[0]->{'record_type'} eq 'auth') { |
374 |
} elsif ($match->[0]->{'record_type'} eq 'auth') { |
373 |
$match_citation .= $match->[0]->{'authorized_heading'} if defined($match->[0]->{'authorized_heading'}); |
375 |
if (defined($match->[0]->{'authorized_heading'})) { |
|
|
376 |
$match_citation .= $match->[0]->{'authorized_heading'}; |
377 |
$match_id = $match->[0]->{'candidate_match_id'}; |
378 |
} |
374 |
} |
379 |
} |
375 |
} |
380 |
} |
376 |
|
381 |
|
Lines 383-389
sub import_records_list {
Link Here
|
383 |
overlay_status => $record->{'overlay_status'}, |
388 |
overlay_status => $record->{'overlay_status'}, |
384 |
# Sorry about the match_id being from the "biblionumber" field; |
389 |
# Sorry about the match_id being from the "biblionumber" field; |
385 |
# as it turns out, any match id will go in biblionumber |
390 |
# as it turns out, any match id will go in biblionumber |
386 |
match_id => $#$match > -1 ? $match->[0]->{'biblionumber'} : 0, |
391 |
match_id => $match_id, |
387 |
match_citation => $match_citation, |
392 |
match_citation => $match_citation, |
388 |
match_score => $#$match > -1 ? $match->[0]->{'score'} : 0, |
393 |
match_score => $#$match > -1 ? $match->[0]->{'score'} : 0, |
389 |
record_type => $record->{'record_type'}, |
394 |
record_type => $record->{'record_type'}, |
390 |
- |
|
|