use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Koha;
use C4::Biblio;
use C4::Items;
use C4::Auth;
use C4::Output;
+use C4::Csv;
my $query = new CGI;
my ( $template, $borrowernumber, $cookie ) = get_template_and_user (
{
- template_name => "basket/basket.tmpl",
+ template_name => "basket/basket.tt",
query => $query,
type => "intranet",
flagsrequired => { borrow => 1 },
$template->param( biblionumber => $biblionumber );
my $dat = &GetBiblioData($biblionumber);
+ next unless $dat;
my $record = &GetMarcBiblio($biblionumber);
my $marcnotesarray = GetMarcNotes( $record, $marcflavour );
my $marcauthorsarray = GetMarcAuthors( $record, $marcflavour );
$hasauthors = 1;
}
- my $shelflocations =GetKohaAuthorisedValues('items.location',$dat->{'frameworkcode'}, 'opac');
- my $collections = GetKohaAuthorisedValues('items.ccode',$dat->{'frameworkcode'}, 'opac');
+ my $shelflocations =GetKohaAuthorisedValues('items.location',$dat->{'frameworkcode'});
+ my $collections = GetKohaAuthorisedValues('items.ccode',$dat->{'frameworkcode'});
for my $itm (@items) {
if ($itm->{'location'}){
$template->param(
BIBLIO_RESULTS => $resultsarray,
+ csv_profiles => GetCsvProfilesLoop('marc'),
+ bib_list => $bib_list,
);
output_html_with_http_headers $query, $cookie, $template->output;