From 272b0c63918bb7ea5774c6caf2314f18aec0ea61 Mon Sep 17 00:00:00 2001
From: shedges <shedges>
Date: Tue, 17 Aug 2004 20:50:41 +0000
Subject: [PATCH] added MARC notes array and MARC subjects array to values sent
 to template.

---
 opac/opac-detail.pl | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/opac/opac-detail.pl b/opac/opac-detail.pl
index 84c7131383..5b92764b40 100755
--- a/opac/opac-detail.pl
+++ b/opac/opac-detail.pl
@@ -7,6 +7,8 @@ use C4::Auth;
 use C4::Bull; #uses getsubscriptionfrom biblionumber
 use C4::Interface::CGI::Output;
 use HTML::Template;
+use C4::Biblio;
+use C4::SearchMarc;
 
 my $query=new CGI;
 my ($template, $borrowernumber, $cookie) 
@@ -44,6 +46,19 @@ foreach my $itm (@items) {
 
 $template->param(norequests => $norequests);
 
+  ## get notes and subjects from MARC record
+my $marc = C4::Context->preference("marc");
+if ($marc eq "yes") {
+        my $dbh = C4::Context->dbh;
+	my $bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber);
+	my $marcflavour = C4::Context->preference("marcflavour");
+	my $marcnotesarray = &getMARCnotes($dbh,$bibid,$marcflavour);
+	my $marcsubjctsarray = &getMARCsubjects($dbh,$bibid,$marcflavour);
+
+	$template->param(MARCNOTES => $marcnotesarray);
+	$template->param(MARCSUBJCTS => $marcsubjctsarray);
+}
+
 my @results = ($dat,);
 
 my $resultsarray=\@results;
@@ -59,4 +74,3 @@ $template->param(BIBLIO_RESULTS => $resultsarray,
 );
 
 output_html_with_http_headers $query, $cookie, $template->output;
-
-- 
2.39.5