From a6c339aa694a693d0537b450cf00c433f7279ff2 Mon Sep 17 00:00:00 2001
From: Galen Charlton <galen.charlton@liblime.com>
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 <galen.charlton@liblime.com>
---
 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      = "&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";
-- 
2.39.5