From 70325977039de4b7c8915b20cb5979a185b5079c Mon Sep 17 00:00:00 2001
From: Chris Cormack <chris@bigballofwax.co.nz>
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 <galen.charlton@liblime.com>
Signed-off-by: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
---
 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 399e666f3d..b36e8c1caf 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;
@@ -66,14 +67,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