[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/opac opac-basket.pl,NONE,1.1
From: |
doXulting |
Subject: |
[Koha-cvs] CVS: koha/opac opac-basket.pl,NONE,1.1 |
Date: |
Mon, 05 Jul 2004 10:04:47 -0700 |
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";
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/opac opac-basket.pl,NONE,1.1,
doXulting <=