7 use C4::Interface::CGI::Output;
12 my ($template, $borrowernumber, $cookie)
13 = get_template_and_user({template_name => "opac-basket.tmpl",
17 flagsrequired => {borrow => 1},
21 my $bib_list=$query->param('bib_list');
22 my $print_basket=$query->param('print');
23 my $verbose = $query->param('verbose');
25 if($verbose) { $template->param(verbose => 1); }
26 if ($print_basket) { $template->param(print_basket => 1); }
28 my @bibs = split(/\//, $bib_list);
32 foreach my $biblionumber (@bibs) {
33 $template->param(biblionumber => $biblionumber);
35 my $dat = &bibdata($biblionumber);
36 my ($authorcount, $addauthor) = &addauthor($biblionumber);
37 my @items = &ItemInfo(undef, $biblionumber, 'opac');
39 $dat->{'additional'}=$addauthor->[0]->{'author'};
40 for (my $i = 1; $i < $authorcount; $i++) {
41 $dat->{'additional'} .= "|" . $addauthor->[$i]->{'author'};
47 $dat->{'biblionumber'} = $biblionumber;
48 $dat->{ITEM_RESULTS} = \@items;
49 if (C4::Context->preference("BiblioDefaultView") eq "normal") {
50 $dat->{dest} = "opac-detail.pl";
51 } elsif (C4::Context->preference("BiblioDefaultView") eq "marc") {
52 $dat->{dest} ="opac-MARCdetail.pl";
54 $dat->{dest} = "opac-ISBDdetail.pl";
56 push (@results, $dat);
59 my $resultsarray=\@results;
60 # my $itemsarray=\@items;
62 $template->param(BIBLIO_RESULTS => $resultsarray,
65 output_html_with_http_headers $query, $cookie, $template->output;