[Koha-cvs] CVS: koha/opac opac-detail.pl,1.12,1.13

[skemotah]

Update of /cvsroot/koha/koha/opac
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7915

Modified Files:
        opac-detail.pl 
Log Message:
added MARC notes array and MARC subjects array to values sent to template.

Index: opac-detail.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-detail.pl,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -r1.12 -r1.13
*** opac-detail.pl      12 Aug 2004 14:50:29 -0000      1.12
--- opac-detail.pl      17 Aug 2004 20:50:41 -0000      1.13
***************
*** 8,11 ****
--- 8,13 ----
  use C4::Interface::CGI::Output;
  use HTML::Template;
+ use C4::Biblio;
+ use C4::SearchMarc;
  
  my $query=new CGI;
***************
*** 45,48 ****
--- 47,63 ----
  $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,);
  
***************
*** 60,62 ****
  
  output_html_with_http_headers $query, $cookie, $template->output;
- 
--- 75,76 ----