Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

add subtitle to COinS for MARC21

Browse source 
Preserves change added in the LTFL integration
while also switching to Nahuel's COinS implementation.

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
This commit is contained in:
Galen Charlton 2009-05-11 19:03:50 -05:00
parent efaa4bb82c
commit a6c339aa69
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
C4/Biblio.pm
View file

@ -1052,6 +1052,7 @@ sub GetCOinSBiblio {
my ($aulast, $aufirst) = ('','');
my $oauthors;
my $title;
my $subtitle;
my $pubyear;
my $isbn;
my $issn;
@ -1132,10 +1133,12 @@ sub GetCOinSBiblio {
}
}
$title = "&amp;rft.btitle=".$record->subfield('245','a');
$pubyear = $record->subfield("260","c") || "";
$publisher = $record->subfield('260','b') || "";
$isbn = $record->subfield('020','a') || "";
$issn = $record->subfield('022','a') || "";
$subtitle = $record->subfield('245', 'b') || '';
$title .= $subtitle;
$pubyear = $record->subfield('260', 'c') || '';
$publisher = $record->subfield('260', 'b') || '';
$isbn = $record->subfield('020', 'a') || '';
$issn = $record->subfield('022', 'a') || '';
}
my $coins_value = "ctx_ver=Z39.88-2004&amp;rft_val_fmt=info%3Aofi%2Ffmt%3Akev%3Amtx%3A$mtx$genre$title&amp;rft.isbn=$isbn&amp;rft.issn=$issn&amp;rft.aulast=$aulast&amp;rft.aufirst=$aufirst$oauthors&amp;rft.pub=$publisher&amp;rft.date=$pubyear";