opac/opac-basket.pl

   1 #!/usr/bin/perl
   2 use strict;
   3 require Exporter;
   4 use CGI;
   5 use C4::Search;
   6 use C4::Auth;
   7 use C4::Interface::CGI::Output;
   8 use HTML::Template;
   9
  10 my $query=new CGI;
  11
  12 my ($template, $borrowernumber, $cookie)
  13     = get_template_and_user({template_name => "opac-basket.tmpl",
  14                              query => $query,
  15                              type => "opac",
  16                              authnotrequired => 1,
  17                              flagsrequired => {borrow => 1},
  18                          });
  19
  20
  21 my $bib_list=$query->param('bib_list');
  22 my $print_basket=$query->param('print');
  23
  24 if ($print_basket) { $template->param(print_basket => 1); }
  25
  26 my @bibs = split(/\//, $bib_list);
  27 my @results;
  28
  29 foreach my $biblionumber (@bibs) {
  30         $template->param(biblionumber => $biblionumber);
  31
  32         my $dat                                   = &bibdata($biblionumber);
  33         my ($authorcount, $addauthor)             = &addauthor($biblionumber);
  34
  35         $dat->{'additional'}=$addauthor->[0]->{'author'};
  36         for (my $i = 1; $i < $authorcount; $i++) {
  37                         $dat->{'additional'} .= "|" . $addauthor->[$i]->{'author'};
  38         } # for
  39
  40         $dat->{'biblionumber'} = $biblionumber;
  41
  42         push (@results, $dat);
  43 }
  44
  45 my $resultsarray=\@results;
  46
  47 $template->param(BIBLIO_RESULTS => $resultsarray);
  48
  49 output_html_with_http_headers $query, $cookie, $template->output;