[Koha-cvs] CVS: koha/opac opac-basket.pl,NONE,1.1

[doXulting]

Update of /cvsroot/koha/koha/opac
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25236/opac

Added Files:
        opac-basket.pl 
Log Message:
OPAC basket CGI

--- NEW FILE ---
#!/usr/bin/perl
use strict;
require Exporter;
use CGI;
use C4::Search;
use C4::Auth;
use C4::Interface::CGI::Output;
use HTML::Template;

my $query=new CGI;

my ($template, $borrowernumber, $cookie)
    = get_template_and_user({template_name => "opac-basket.tmpl",
                             query => $query,
                             type => "opac",
                             authnotrequired => 1,
                             flagsrequired => {borrow => 1},
                         });


my $bib_list=$query->param('bib_list');
my $print_basket=$query->param('print');

if ($print_basket) { $template->param(print_basket => 1); }

my @bibs = split(/\//, $bib_list);
my @results;

foreach my $biblionumber (@bibs) {
        $template->param(biblionumber => $biblionumber);

        my $dat                                   = &bibdata($biblionumber);
        my ($authorcount, $addauthor)             = &addauthor($biblionumber);

        $dat->{'additional'}=$addauthor->[0]->{'author'};
        for (my $i = 1; $i < $authorcount; $i++) {
                        $dat->{'additional'} .= "|" . 
$addauthor->[$i]->{'author'};
        } # for

        $dat->{'biblionumber'} = $biblionumber;
        
        push (@results, $dat);
}

my address@hidden;

$template->param(BIBLIO_RESULTS => $resultsarray);

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";