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