|
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') and 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 |
- |
|
|