use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Koha;
use C4::Biblio;
use C4::Branch;
my ( $template, $borrowernumber, $cookie ) = get_template_and_user (
{
- template_name => "opac-basket.tmpl",
+ template_name => "opac-basket.tt",
query => $query,
type => "opac",
authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
$template->param( biblionumber => $biblionumber );
my $dat = &GetBiblioData($biblionumber);
+ next unless $dat;
my $record = &GetMarcBiblio($biblionumber);
next unless $record;
my $marcnotesarray = GetMarcNotes( $record, $marcflavour );
$hasauthors = 1;
}
my $collections = GetKohaAuthorisedValues('items.ccode',$dat->{'frameworkcode'}, 'opac');
+ my $shelflocations =GetKohaAuthorisedValues('items.location',$dat->{'frameworkcode'}, 'opac');
# COinS format FIXME: for books Only
my $coins_format;
my $branches = GetBranches();
for my $itm (@items) {
+ if ($itm->{'location'}){
+ $itm->{'location_opac'} = $shelflocations->{$itm->{'location'} };
+ }
my ( $transfertwhen, $transfertfrom, $transfertto ) = GetTransfers($itm->{itemnumber});
if ( defined( $transfertwhen ) && $transfertwhen ne '' ) {
$itm->{transfertwhen} = $transfertwhen;