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 my $num = 1;
  30 foreach my $biblionumber (@bibs) {
  31         $template->param(biblionumber => $biblionumber);
  32
  33         my $dat                                   = &bibdata($biblionumber);
  34         my ($authorcount, $addauthor)             = &addauthor($biblionumber);
  35
  36         $dat->{'additional'}=$addauthor->[0]->{'author'};
  37         for (my $i = 1; $i < $authorcount; $i++) {
  38                         $dat->{'additional'} .= "|" . $addauthor->[$i]->{'author'};
  39         } # for
  40         if($num % 2 == 1){
  41                 $dat->{'even'} = 1;
  42         }
  43         $num++;
  44         $dat->{'biblionumber'} = $biblionumber;
  45
  46         push (@results, $dat);
  47 }
  48
  49 my $resultsarray=\@results;
  50
  51 $template->param(BIBLIO_RESULTS => $resultsarray);
  52
  53 output_html_with_http_headers $query, $cookie, $template->output;