From a6c339aa694a693d0537b450cf00c433f7279ff2 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Mon, 11 May 2009 19:03:50 -0500 Subject: [PATCH] add subtitle to COinS for MARC21 Preserves change added in the LTFL integration while also switching to Nahuel's COinS implementation. Signed-off-by: Galen Charlton --- C4/Biblio.pm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index 684fed5707..27a2795877 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -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 = "&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&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"; -- 2.39.5