Lines 1256-1266
sub GetCOinSBiblio {
Link Here
|
1256 |
$pubyear = substr $record->field('008')->data(), 7, 4; |
1256 |
$pubyear = substr $record->field('008')->data(), 7, 4; |
1257 |
$isbn = $record->subfield( '773', 'z' ) || ''; |
1257 |
$isbn = $record->subfield( '773', 'z' ) || ''; |
1258 |
$issn = $record->subfield( '773', 'x' ) || ''; |
1258 |
$issn = $record->subfield( '773', 'x' ) || ''; |
1259 |
# if ($mtx eq 'journal') { |
1259 |
if ($mtx eq 'journal') { |
1260 |
$title .= "&rft.title=" . (($record->subfield( '773', 't' ) || $record->subfield( '773', 'a'))); |
1260 |
$title .= "&rft.title=" . (($record->subfield( '773', 't' ) || $record->subfield( '773', 'a'))); |
1261 |
# } else { |
1261 |
} else { |
1262 |
# $title .= "&rft.btitle=" . (($record->subfield( '773', 't' ) || $record->subfield( '773', 'a')) || ''); |
1262 |
$title .= "&rft.btitle=" . (($record->subfield( '773', 't' ) || $record->subfield( '773', 'a')) || ''); |
1263 |
# } |
1263 |
} |
1264 |
foreach my $rel ($record->subfield( '773', 'g' )) { |
1264 |
foreach my $rel ($record->subfield( '773', 'g' )) { |
1265 |
if ($pages) { |
1265 |
if ($pages) { |
1266 |
$pages .= ', '; |
1266 |
$pages .= ', '; |
1267 |
- |
|
|