Lines 68-79
my $records =
Link Here
|
68 |
my @list = (); |
68 |
my @list = (); |
69 |
foreach my $record (@$records) { |
69 |
foreach my $record (@$records) { |
70 |
my $citation = $record->{'title'} || $record->{'authorized_heading'}; |
70 |
my $citation = $record->{'title'} || $record->{'authorized_heading'}; |
71 |
$citation .= " $record->{'author'}" if $record->{'author'}; |
|
|
72 |
$citation .= " (" if $record->{'issn'} or $record->{'isbn'}; |
73 |
$citation .= $record->{'isbn'} if $record->{'isbn'}; |
74 |
$citation .= ", " if $record->{'issn'} and $record->{'isbn'}; |
75 |
$citation .= $record->{'issn'} if $record->{'issn'}; |
76 |
$citation .= ")" if $record->{'issn'} or $record->{'isbn'}; |
77 |
|
71 |
|
78 |
my $match = GetImportRecordMatches( $record->{'import_record_id'}, 1 ); |
72 |
my $match = GetImportRecordMatches( $record->{'import_record_id'}, 1 ); |
79 |
my $match_citation = ''; |
73 |
my $match_citation = ''; |
Lines 99-104
foreach my $record (@$records) {
Link Here
|
99 |
DT_RowId => $record->{'import_record_id'}, |
93 |
DT_RowId => $record->{'import_record_id'}, |
100 |
import_record_id => $record->{'import_record_id'}, |
94 |
import_record_id => $record->{'import_record_id'}, |
101 |
citation => $citation, |
95 |
citation => $citation, |
|
|
96 |
author => $record->{'author'}, |
97 |
issn => $record->{'issn'}, |
98 |
isbn => $record->{'isbn'}, |
102 |
status => $record->{'status'}, |
99 |
status => $record->{'status'}, |
103 |
overlay_status => $record->{'overlay_status'}, |
100 |
overlay_status => $record->{'overlay_status'}, |
104 |
match_citation => $match_citation, |
101 |
match_citation => $match_citation, |
105 |
- |
|
|