Lines 1217-1223
sub GetCOinSBiblio {
Link Here
|
1217 |
$subtitle = $record->subfield( '245', 'b' ) || ''; |
1217 |
$subtitle = $record->subfield( '245', 'b' ) || ''; |
1218 |
$title .= $subtitle; |
1218 |
$title .= $subtitle; |
1219 |
if ($titletype eq 'a') { |
1219 |
if ($titletype eq 'a') { |
1220 |
$pubyear = substr $record->field('008')->data(), 7, 4; |
1220 |
$pubyear = $record->field('008') && substr($pubyear->data(), 7, 4); |
1221 |
$isbn = $record->subfield( '773', 'z' ) || ''; |
1221 |
$isbn = $record->subfield( '773', 'z' ) || ''; |
1222 |
$issn = $record->subfield( '773', 'x' ) || ''; |
1222 |
$issn = $record->subfield( '773', 'x' ) || ''; |
1223 |
if ($mtx eq 'journal') { |
1223 |
if ($mtx eq 'journal') { |
1224 |
- |
|
|