7 use C4::Bull; #uses getsubscriptionfrom biblionumber
8 use C4::Interface::CGI::Output;
12 my ($template, $borrowernumber, $cookie)
13 = get_template_and_user({template_name => "opac-detail.tmpl",
17 flagsrequired => {borrow => 1},
20 my $biblionumber=$query->param('bib');
21 $template->param(biblionumber => $biblionumber);
24 # change back when ive fixed request.pl
25 my @items = &ItemInfo(undef, $biblionumber, 'opac');
26 my $dat = &bibdata($biblionumber);
27 my ($authorcount, $addauthor) = &addauthor($biblionumber);
28 my ($webbiblioitemcount, @webbiblioitems) = &getwebbiblioitems($biblionumber);
29 my ($websitecount, @websites) = &getwebsites($biblionumber);
30 my $subscriptionid = getsubscriptionfrombiblionumber($biblionumber);
32 $dat->{'count'}=@items;
34 $dat->{'additional'}=$addauthor->[0]->{'author'};
35 for (my $i = 1; $i < $authorcount; $i++) {
36 $dat->{'additional'} .= "|" . $addauthor->[$i]->{'author'};
40 foreach my $itm (@items) {
41 $norequests = 0 unless $itm->{'notforloan'};
42 $itm->{$itm->{'publictype'}} = 1;
45 $template->param(norequests => $norequests);
47 my @results = ($dat,);
49 my $resultsarray=\@results;
50 my $itemsarray=\@items;
51 my $webarray=\@webbiblioitems;
52 my $sitearray=\@websites;
54 $template->param(BIBLIO_RESULTS => $resultsarray,
55 ITEM_RESULTS => $itemsarray,
56 WEB_RESULTS => $webarray,
57 SITE_RESULTS => $sitearray,
58 subscriptionid => $subscriptionid,
61 output_html_with_http_headers $query, $cookie, $template->output;