Permalink
Browse files

added MARC notes array and MARC subjects array to values sent to temp…

…late.
  • Loading branch information...
1 parent bedba1e commit 272b0c63918bb7ea5774c6caf2314f18aec0ea61 shedges committed Aug 17, 2004
Showing with 15 additions and 1 deletion.
  1. +15 −1 opac/opac-detail.pl
View
@@ -7,6 +7,8 @@
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 @@
$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 @@
);
output_html_with_http_headers $query, $cookie, $template->output;
-

0 comments on commit 272b0c6

Please sign in to comment.