Lines 1163-1168
sub GetCOinSBiblio {
Link Here
|
1163 |
my $isbn = ''; |
1163 |
my $isbn = ''; |
1164 |
my $issn = ''; |
1164 |
my $issn = ''; |
1165 |
my $publisher = ''; |
1165 |
my $publisher = ''; |
|
|
1166 |
my $pages = ''; |
1166 |
my $titletype = 'b'; |
1167 |
my $titletype = 'b'; |
1167 |
|
1168 |
|
1168 |
# For the purposes of generating COinS metadata, LDR/06-07 can be |
1169 |
# For the purposes of generating COinS metadata, LDR/06-07 can be |
Lines 1251-1264
sub GetCOinSBiblio {
Link Here
|
1251 |
$title = "&rft." . $titletype . "title=" . $record->subfield( '245', 'a' ); |
1252 |
$title = "&rft." . $titletype . "title=" . $record->subfield( '245', 'a' ); |
1252 |
$subtitle = $record->subfield( '245', 'b' ) || ''; |
1253 |
$subtitle = $record->subfield( '245', 'b' ) || ''; |
1253 |
$title .= $subtitle; |
1254 |
$title .= $subtitle; |
1254 |
$pubyear = $record->subfield( '260', 'c' ) || ''; |
1255 |
if ($titletype eq 'a') { |
1255 |
$publisher = $record->subfield( '260', 'b' ) || ''; |
1256 |
$pubyear = substr $record->field('008')->data(), 7, 4; |
1256 |
$isbn = $record->subfield( '020', 'a' ) || ''; |
1257 |
$isbn = $record->subfield( '773', 'z' ) || ''; |
1257 |
$issn = $record->subfield( '022', 'a' ) || ''; |
1258 |
$issn = $record->subfield( '773', 'x' ) || ''; |
|
|
1259 |
# if ($mtx eq 'journal') { |
1260 |
$title .= "&rft.title=" . (($record->subfield( '773', 't' ) || $record->subfield( '773', 'a'))); |
1261 |
# } else { |
1262 |
# $title .= "&rft.btitle=" . (($record->subfield( '773', 't' ) || $record->subfield( '773', 'a')) || ''); |
1263 |
# } |
1264 |
foreach my $rel ($record->subfield( '773', 'g' )) { |
1265 |
if ($pages) { |
1266 |
$pages .= ', '; |
1267 |
} |
1268 |
$pages .= $rel; |
1269 |
} |
1270 |
} else { |
1271 |
$pubyear = $record->subfield( '260', 'c' ) || ''; |
1272 |
$publisher = $record->subfield( '260', 'b' ) || ''; |
1273 |
$isbn = $record->subfield( '020', 'a' ) || ''; |
1274 |
$issn = $record->subfield( '022', 'a' ) || ''; |
1275 |
} |
1258 |
|
1276 |
|
1259 |
} |
1277 |
} |
1260 |
my $coins_value = |
1278 |
my $coins_value = |
1261 |
"ctx_ver=Z39.88-2004&rft_val_fmt=info%3Aofi%2Ffmt%3Akev%3Amtx%3A$mtx$genre$title&rft.isbn=$isbn&rft.issn=$issn&rft.aulast=$aulast&rft.aufirst=$aufirst$oauthors&rft.pub=$publisher&rft.date=$pubyear"; |
1279 |
"ctx_ver=Z39.88-2004&rft_val_fmt=info%3Aofi%2Ffmt%3Akev%3Amtx%3A$mtx$genre$title&rft.isbn=$isbn&rft.issn=$issn&rft.aulast=$aulast&rft.aufirst=$aufirst$oauthors&rft.pub=$publisher&rft.date=$pubyear&rft.pages=$pages"; |
1262 |
$coins_value =~ s/(\ |&[^a])/\+/g; |
1280 |
$coins_value =~ s/(\ |&[^a])/\+/g; |
1263 |
|
1281 |
|
1264 |
#<!-- TMPL_VAR NAME="ocoins_format" -->&rft.au=<!-- TMPL_VAR NAME="author" -->&rft.btitle=<!-- TMPL_VAR NAME="title" -->&rft.date=<!-- TMPL_VAR NAME="publicationyear" -->&rft.pages=<!-- TMPL_VAR NAME="pages" -->&rft.isbn=<!-- TMPL_VAR NAME=amazonisbn -->&rft.aucorp=&rft.place=<!-- TMPL_VAR NAME="place" -->&rft.pub=<!-- TMPL_VAR NAME="publishercode" -->&rft.edition=<!-- TMPL_VAR NAME="edition" -->&rft.series=<!-- TMPL_VAR NAME="series" -->&rft.genre=" |
1282 |
#<!-- TMPL_VAR NAME="ocoins_format" -->&rft.au=<!-- TMPL_VAR NAME="author" -->&rft.btitle=<!-- TMPL_VAR NAME="title" -->&rft.date=<!-- TMPL_VAR NAME="publicationyear" -->&rft.pages=<!-- TMPL_VAR NAME="pages" -->&rft.isbn=<!-- TMPL_VAR NAME=amazonisbn -->&rft.aucorp=&rft.place=<!-- TMPL_VAR NAME="place" -->&rft.pub=<!-- TMPL_VAR NAME="publishercode" -->&rft.edition=<!-- TMPL_VAR NAME="edition" -->&rft.series=<!-- TMPL_VAR NAME="series" -->&rft.genre=" |
1265 |
- |
|
|