Plugin for field 124e

[koha.git] / opac / opac-basket.pl

diff --git a/opac/opac-basket.pl b/opac/opac-basket.pl
index 9e42e84..0e60998 100755 (executable)
--- a/opac/opac-basket.pl
+++ b/opac/opac-basket.pl
@@ -20,40 +20,42 @@ my ($template, $borrowernumber, $cookie)
 
 my $bib_list=$query->param('bib_list');
 my $print_basket=$query->param('print');
+my $verbose = $query->param('verbose');
 
+if($verbose) { $template->param(verbose => 1); }
 if ($print_basket) { $template->param(print_basket => 1); }
 
 my @bibs = split(/\//, $bib_list);
 my @results;
 
+my $num = 1;
 foreach my $biblionumber (@bibs) {
        $template->param(biblionumber => $biblionumber);
 
        my $dat                                   = &bibdata($biblionumber);
        my ($authorcount, $addauthor)             = &addauthor($biblionumber);
+       my @items                                 = &ItemInfo(undef, $biblionumber, 'opac');
 
        $dat->{'additional'}=$addauthor->[0]->{'author'};
        for (my $i = 1; $i < $authorcount; $i++) {
                        $dat->{'additional'} .= "|" . $addauthor->[$i]->{'author'};
        } # for
-
+       if($num % 2 == 1){
+               $dat->{'even'} = 1;
+       }
+       $num++;
        $dat->{'biblionumber'} = $biblionumber;
-       
+       $dat->{ITEM_RESULTS} = \@items;
        push (@results, $dat);
 }
 
 my $resultsarray=\@results;
+# my $itemsarray=\@items;
 
-$template->param(BIBLIO_RESULTS => $resultsarray);
+$template->param(BIBLIO_RESULTS => $resultsarray,
+                            LibraryName => C4::Context->preference("LibraryName"),
+                               suggestion => C4::Context->preference("suggestion"),
+                               virtualshelves => C4::Context->preference("virtualshelves"),
+);
 
 output_html_with_http_headers $query, $cookie, $template->output;
-
-
-#print STDERR "\n----------------------\n";
-#foreach my $rrr (@results) {
-#      print STDERR "XXXXXXXXXXXX\n";
-#      foreach my $k (sort keys %$rrr) {
-#              print STDERR "$k __ ".$$rrr{$k}."\n",
-#      }
-#}
-#print STDERR "----------------------\n";