X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=opac%2Fopac-basket.pl;h=a50bdd57967e3d0d05134fa12af90f99b14e4296;hb=309c1d23b73abe9a746fc2caf02c890a4840856a;hp=d86af6470e32d09644b4f68f294220a335e4b358;hpb=f9de5752509c7677d49e0ebcb76b1fac9ac3e512;p=koha.git

diff --git a/opac/opac-basket.pl b/opac/opac-basket.pl
index d86af6470e..a50bdd5796 100755
--- a/opac/opac-basket.pl
+++ b/opac/opac-basket.pl
@@ -17,8 +17,9 @@
 
 
 use strict;
-require Exporter;
+use warnings;
 use CGI;
+use C4::Koha;
 use C4::Biblio;
 use C4::Items;
 use C4::Auth;
@@ -48,6 +49,8 @@ my @results;
 
 my $num = 1;
 my $marcflavour = C4::Context->preference('marcflavour');
+
+
 foreach my $biblionumber ( @bibs ) {
     $template->param( biblionumber => $biblionumber );
 
@@ -56,14 +59,29 @@ foreach my $biblionumber ( @bibs ) {
     my $marcnotesarray   = GetMarcNotes( $record, $marcflavour );
     my $marcauthorsarray = GetMarcAuthors( $record, $marcflavour );
     my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
+    my $marcseriesarray  = GetMarcSeries  ($record,$marcflavour);
+    my $marcurlsarray    = GetMarcUrls    ($record,$marcflavour);
     my @items            = &GetItemsInfo( $biblionumber, 'opac' );
+
+    my $hasauthors = 0;
+    if($dat->{'author'} || @$marcauthorsarray) {
+      $hasauthors = 1;
+    }
 	
+    my $shelflocations =GetKohaAuthorisedValues('items.location',$dat->{'frameworkcode'});
+    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;
@@ -75,6 +93,9 @@ foreach my $biblionumber ( @bibs ) {
     $dat->{MARCNOTES}      = $marcnotesarray;
     $dat->{MARCSUBJCTS}    = $marcsubjctsarray;
     $dat->{MARCAUTHORS}    = $marcauthorsarray;
+    $dat->{MARCSERIES}  = $marcseriesarray;
+    $dat->{MARCURLS}    = $marcurlsarray;
+    $dat->{HASAUTHORS}  = $hasauthors;
 
     if ( C4::Context->preference("BiblioDefaultView") eq "normal" ) {
         $dat->{dest} = "opac-detail.pl";