From df7c176b8d490f84a0cf2a89484c69d00dcbaaac Mon Sep 17 00:00:00 2001 From: Chris Cormack Date: Tue, 12 May 2009 22:28:19 +1200 Subject: [PATCH] Bug 2505 adding use warnings and fixing warnings in opac-basket.pl Signed-off-by: Galen Charlton --- opac/opac-basket.pl | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/opac/opac-basket.pl b/opac/opac-basket.pl index 154d8afab4..8edaf8a63b 100755 --- a/opac/opac-basket.pl +++ b/opac/opac-basket.pl @@ -17,6 +17,7 @@ use strict; +use warnings; use CGI; use C4::Koha; use C4::Biblio; @@ -72,14 +73,16 @@ foreach my $biblionumber ( @bibs ) { my $collections = GetKohaAuthorisedValues('items.ccode',$dat->{'frameworkcode'} ); for my $itm (@items) { + if ($itm->{'location'}){ $itm->{'location_description'} = $shelflocations->{$itm->{'location'} }; + } } # COinS format FIXME: for books Only my $coins_format; my $fmt = substr $record->leader(), 6,2; my $fmts; $fmts->{'am'} = 'book'; - $dat->{ocoins_format} => $fmts->{$fmt}; + $dat->{ocoins_format} = $fmts->{$fmt}; if ( $num % 2 == 1 ) { $dat->{'even'} = 1; -- 2.39.5