X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=opac%2Fopac-basket.pl;h=c453c87d22a82a3a2168cd5648676aab9cdb9659;hb=2fb3f22f62c1b45065874e0a86d403f47c05408a;hp=d86af6470e32d09644b4f68f294220a335e4b358;hpb=f9de5752509c7677d49e0ebcb76b1fac9ac3e512;p=koha_fer diff --git a/opac/opac-basket.pl b/opac/opac-basket.pl index d86af6470e..c453c87d22 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,22 +49,40 @@ my @results; my $num = 1; my $marcflavour = C4::Context->preference('marcflavour'); +if (C4::Context->preference('TagsEnabled')) { + $template->param(TagsEnabled => 1); + foreach (qw(TagsShowOnList TagsInputOnList)) { + C4::Context->preference($_) and $template->param($_ => 1); + } +} + + foreach my $biblionumber ( @bibs ) { $template->param( biblionumber => $biblionumber ); my $dat = &GetBiblioData($biblionumber); my $record = &GetMarcBiblio($biblionumber); + next unless $record; 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 $subtitle = GetRecordValue('subtitle', $record, GetFrameworkCode($biblionumber)); + + my $hasauthors = 0; + if($dat->{'author'} || @$marcauthorsarray) { + $hasauthors = 1; + } + my $collections = GetKohaAuthorisedValues('items.ccode',$dat->{'frameworkcode'}, 'opac'); + # 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 +94,10 @@ foreach my $biblionumber ( @bibs ) { $dat->{MARCNOTES} = $marcnotesarray; $dat->{MARCSUBJCTS} = $marcsubjctsarray; $dat->{MARCAUTHORS} = $marcauthorsarray; + $dat->{MARCSERIES} = $marcseriesarray; + $dat->{MARCURLS} = $marcurlsarray; + $dat->{HASAUTHORS} = $hasauthors; + $dat->{subtitle} = $subtitle; if ( C4::Context->preference("BiblioDefaultView") eq "normal" ) { $dat->{dest} = "opac-detail.pl"; @@ -93,6 +116,7 @@ my $resultsarray = \@results; # my $itemsarray=\@items; $template->param( + bib_list => $bib_list, BIBLIO_RESULTS => $resultsarray, );