6 use C4::Serials; #uses getsubscriptionfrom biblionumber
7 use C4::Interface::CGI::Output;
14 my $dbh=C4::Context->dbh;
16 my ($template, $borrowernumber, $cookie)
17 = get_template_and_user({template_name => "catalogue/detail.tmpl",
21 flagsrequired => {borrow => 1},
24 my $biblionumber=$query->param('biblionumber');
25 $template->param(biblionumber => $biblionumber);
26 my $retrieve_from=C4::Context->preference('retrieve_from');
27 my ($record,$frameworkcode);
30 if ($retrieve_from eq "zebra"){
31 ($record,@itemrecords)=ZEBRAgetrecord($biblionumber);
33 $record =XMLgetbiblio($dbh,$biblionumber);
34 $record=XML_xml2hash_onerecord($record);
35 my @itemxmls=XMLgetallitems($dbh,$biblionumber);
36 foreach my $itemrecord(@itemxmls){
37 my $itemhash=XML_xml2hash_onerecord($itemrecord);
38 push @itemrecords, $itemhash;
42 my $dat = XMLmarc2koha_onerecord($dbh,$record,"biblios");
44 foreach my $itemrecord (@itemrecords){
46 my $item= XMLmarc2koha_onerecord($dbh,$itemrecord,"holdings");
47 $item=ItemInfo($dbh,$item);
48 $item->{itemtype}=$dat->{itemtype};
49 $norequests = 0 unless $item->{'notforloan'};
50 $item->{$item->{'publictype'}} = 1; ## NOT sure what this is kept from old db probably useless now
54 my $subscriptionsnumber = GetSubscriptionsFromBiblionumber($biblionumber);
56 $dat->{'count'}=@items;
57 $template->param(count =>$dat->{'count'});
58 $template->param(norequests => $norequests);
60 ## get notes subjects and URLS from MARC record
62 my $marcflavour = C4::Context->preference("marcflavour");
63 my $marcnotesarray = &getMARCnotes($dbh,$record,$marcflavour);
64 my $marcsubjctsarray = &getMARCsubjects($dbh,$record,$marcflavour);
65 my $marcurlssarray = &getMARCurls($dbh,$record,$marcflavour);
66 $template->param(MARCURLS => $marcurlssarray);
67 $template->param(MARCNOTES => $marcnotesarray);
68 $template->param(MARCSUBJCTS => $marcsubjctsarray);
71 my @results = ($dat,);
73 my $resultsarray=\@results;
74 my $itemsarray=\@items;
77 $template->param(BIBLIO_RESULTS => $resultsarray,
78 ITEM_RESULTS => $itemsarray,
79 subscriptionsnumber => $subscriptionsnumber,
82 output_html_with_http_headers $query, $cookie, $template->output;