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');
24 if ($print_basket) { $template->param(print_basket => 1); }
26 my @bibs = split(/\//, $bib_list);
29 foreach my $biblionumber (@bibs) {
30 $template->param(biblionumber => $biblionumber);
32 my $dat = &bibdata($biblionumber);
33 my ($authorcount, $addauthor) = &addauthor($biblionumber);
35 $dat->{'additional'}=$addauthor->[0]->{'author'};
36 for (my $i = 1; $i < $authorcount; $i++) {
37 $dat->{'additional'} .= "|" . $addauthor->[$i]->{'author'};
40 $dat->{'biblionumber'} = $biblionumber;
42 push (@results, $dat);
45 my $resultsarray=\@results;
47 $template->param(BIBLIO_RESULTS => $resultsarray);
49 output_html_with_http_headers $query, $cookie, $template->output;
52 #print STDERR "\n----------------------\n";
53 #foreach my $rrr (@results) {
54 # print STDERR "XXXXXXXXXXXX\n";
55 # foreach my $k (sort keys %$rrr) {
56 # print STDERR "$k __ ".$$rrr{$k}."\n",
59 #print STDERR "----------------------\n";