GetMarcSubjects
GetMarcUrls
);
-use C4::Items qw( GetItemsInfo );
-use C4::Circulation qw( GetTransfers );
use C4::Tags qw( get_tags );
use C4::XISBN qw( get_xisbns );
use C4::External::Amazon qw( get_amazon_tld );
use Koha::Patrons;
use Koha::Plugins;
use Koha::Ratings;
-use Koha::Recalls;
use Koha::Reviews;
+use Koha::Serial::Items;
use Koha::SearchEngine::Search;
use Koha::SearchEngine::QueryBuilder;
use Koha::Util::MARC;
}
);
-my @all_items = GetItemsInfo($biblionumber);
-if( $specific_item ) {
- @all_items = grep { $_->{itemnumber} == $query->param('itemnumber') } @all_items;
- $template->param( specific_item => 1 );
-}
-my @items_to_show;
my $patron = Koha::Patrons->find( $borrowernumber );
my $biblio = Koha::Biblios->find( $biblionumber );
exit;
}
+my $items = $biblio->items->search_ordered;
+if ($specific_item) {
+ $items = $items->search( { itemnumber => scalar $query->param('itemnumber') } );
+ $template->param( specific_item => 1 );
+}
+
unless ( $patron and $patron->category->override_hidden_items ) {
# only skip this check if there's a logged in user
# and its category overrides OpacHiddenItems
print $query->redirect('/cgi-bin/koha/errors/404.pl'); # escape early
exit;
}
- if ( scalar @all_items >= 1 ) {
- @items_to_show = Koha::Items->search( { itemnumber => [ map { $_->{itemnumber} } @all_items ] } )
- ->filter_by_visible_in_opac( { patron => $patron } )->as_list;
+ if ( $items->count >= 1 ) {
+ $items = $items->filter_by_visible_in_opac( { patron => $patron } );
}
}
next unless ($arrBiblios[$j]);
$dataBiblioPaging = Koha::Biblios->find( $arrBiblios[$j] ) if ($arrBiblios[$j] != $biblionumber);
next unless $dataBiblioPaging;
- push @listResults, {index => $j + 1 + $offset, biblionumber => $arrBiblios[$j], title => ($arrBiblios[$j] == $biblionumber)?'':$dataBiblioPaging->title, author => ($arrBiblios[$j] != $biblionumber && $dataBiblioPaging->author)?$dataBiblioPaging->author:'', url => ($arrBiblios[$j] == $biblionumber)?'':'opac-detail.pl?biblionumber=' . $arrBiblios[$j]};
+ push @listResults, {index => $j + 1 + $offset, biblionumber => $arrBiblios[$j], title => ($arrBiblios[$j] == $biblionumber)?'':$dataBiblioPaging->title, author => ($arrBiblios[$j] != $biblionumber && $dataBiblioPaging->author)?$dataBiblioPaging->author:'', part_number => ($arrBiblios[$j] == $biblionumber)?'':$dataBiblioPaging->part_number, part_name => ($arrBiblios[$j] == $biblionumber)?'':$dataBiblioPaging->part_name, url => ($arrBiblios[$j] == $biblionumber)?'':'opac-detail.pl?biblionumber=' . $arrBiblios[$j]};
}
$template->param('listResults' => \@listResults) if (@listResults);
$template->param('indexPag' => 1 + $offset, 'totalPag' => $arrParamsBusc{'total'}, 'indexPagEnd' => scalar(@arrBiblios) + $offset);
}
}
-$template->param(
- OPACShowCheckoutName => C4::Context->preference("OPACShowCheckoutName"),
-);
-
-if ( C4::Context->preference('EasyAnalyticalRecords') ) {
- # adding items linked via host biblios
- my $analyticfield = '773';
- if ($marcflavour eq 'MARC21'){
- $analyticfield = '773';
- } elsif ($marcflavour eq 'UNIMARC') {
- $analyticfield = '461';
- }
- foreach my $hostfield ( $record->field($analyticfield)) {
- my $hostbiblionumber = $hostfield->subfield("0");
- my $linkeditemnumber = $hostfield->subfield("9");
- my @hostitemInfos = GetItemsInfo($hostbiblionumber);
- foreach my $hostitemInfo (@hostitemInfos){
- if ($hostitemInfo->{itemnumber} eq $linkeditemnumber){
- push(@all_items, $hostitemInfo);
- }
- }
- }
-}
-
-my @items;
-
-# Are there items to hide?
-# Hide items
-if ( @items_to_show != @all_items ) {
- for my $itm (@all_items) {
- next unless any { $itm->{itemnumber} eq $_ } @items_to_show;
- if ( C4::Context->preference('hidelostitems') ) {
- push @items, $itm unless $itm->{itemlost};
- }
- else {
- push @items, $itm;
+$items = Koha::Items->search_ordered(
+ [
+ 'me.biblionumber' => $biblionumber,
+ 'me.itemnumber' => {
+ -in => [
+ $biblio->host_items->get_column('itemnumber')
+ ]
}
- }
-} else {
- # Or not
- @items = @all_items;
-}
+ ],
+ { prefetch => [ 'issue', 'homebranch', 'holdingbranch' ] }
+)->filter_by_visible_in_opac({ patron => $patron }) unless $specific_item;
my $dat = &GetBiblioData($biblionumber);
my $HideMARC = $record_processor->filters->[0]->should_hide_marc(
push @subs, \%cell;
}
-$dat->{'count'} = scalar(@items);
-
+$dat->{'count'} = $items->count;
my (%item_reserves, %priority);
my ($show_holds_count, $show_priority);
);
}
$template->param( ComponentParts => $parts );
- my ( $comp_query, $comp_sort ) = $biblio->get_components_query;
- my $cpq = $comp_query . "&sort_by=" . $comp_sort;
+ my ( $comp_query, $comp_query_str, $comp_sort ) = $biblio->get_components_query;
+ my $cpq = $comp_query_str . "&sort_by=" . $comp_sort;
$template->param( ComponentPartsQuery => $cpq );
}
} else { # check if we should show analytics anyway
# XSLT processing of some stuff
my $variables = {};
+my $lang = C4::Languages::getlanguage();
my @plugin_responses = Koha::Plugins->call(
'opac_detail_xslt_variables',
{
biblio_id => $biblionumber,
- lang => C4::Languages::getlanguage(),
+ lang => $lang,
patron_id => $borrowernumber,
},
);
);
# Get items on order
-my ( @itemnumbers_on_order );
if ( C4::Context->preference('OPACAcquisitionDetails' ) ) {
- my $orders = C4::Acquisition::SearchOrders({
- biblionumber => $biblionumber,
- ordered => 1,
- });
+ my $orders = $biblio->orders->filter_by_active;
my $total_quantity = 0;
- for my $order ( @$orders ) {
- my $order = Koha::Acquisition::Orders->find( $order->{ordernumber} );
- my $basket = $order->basket;
- if ( $basket->effective_create_items eq 'ordering' ) {
- @itemnumbers_on_order = $order->items->get_column('itemnumber');
- }
+ while ( my $order = $orders->next ) {
$total_quantity += $order->quantity;
}
$template->{VARS}->{acquisition_details} = {
my $allow_onshelf_holds;
my ( $itemloop_has_images, $otheritemloop_has_images );
-if ( not $viewallitems and @items > $max_items_to_display ) {
+if ( not $viewallitems and $items->count > $max_items_to_display ) {
$template->param(
too_many_items => 1,
- items_count => scalar( @items ),
+ items_count => $items->count,
);
-} else {
- for my $itm (@items) {
- my $item = Koha::Items->find( $itm->{itemnumber} );
- $itm->{holds_count} = $item_reserves{ $itm->{itemnumber} };
- $itm->{priority} = $priority{ $itm->{itemnumber} };
-
- $allow_onshelf_holds = Koha::CirculationRules->get_onshelfholds_policy( { item => $item, patron => $patron } )
- unless $allow_onshelf_holds;
-
- # get collection code description, too
- my $ccode = $itm->{'ccode'};
- $itm->{'ccode'} = $collections->{$ccode} if defined($ccode) && $collections && exists( $collections->{$ccode} );
- my $copynumber = $itm->{'copynumber'};
- $itm->{'copynumber'} = $copynumbers->{$copynumber} if ( defined($copynumbers) && defined($copynumber) && exists( $copynumbers->{$copynumber} ) );
- if ( defined $itm->{'location'} ) {
- $itm->{'location_description'} = $shelflocations->{ $itm->{'location'} };
- }
- if (exists $itm->{itype} && defined($itm->{itype}) && exists $itemtypes->{ $itm->{itype} }) {
- $itm->{'imageurl'} = getitemtypeimagelocation( 'opac', $itemtypes->{ $itm->{itype} }->{'imageurl'} );
- $itm->{'description'} = $itemtypes->{ $itm->{itype} }->{translated_description};
- }
- foreach (qw(ccode materials enumchron copynumber itemnotes location_description uri)) {
- $itemfields{$_} = 1 if ($itm->{$_});
- }
+}
+else {
+ my $library_info;
+ while ( my $item = $items->next ) {
+ my $item_info = $item->unblessed;
+ $item_info->{holds_count} = $item_reserves{ $item->itemnumber };
+ $item_info->{priority} = $priority{ $item->itemnumber };
+
+ # Get opac_info from Additional contents for home and holding library
+ my ( $opac_info_home, $opac_info_holding );
+ $opac_info_holding = $library_info->{ $item->holdingbranch } // $item->holding_branch->opac_info({ lang => $lang });
+ $library_info->{ $item->holdingbranch } = $opac_info_holding;
+ $opac_info_home = $library_info->{ $item->homebranch } // $item->home_branch->opac_info({ lang => $lang });
+ $library_info->{ $item->homebranch } = $opac_info_home;
+ $item_info->{holding_library_info} = $opac_info_holding->content if $opac_info_holding;
+ $item_info->{home_library_info} = $opac_info_home->content if $opac_info_home;
+
+ $allow_onshelf_holds = Koha::CirculationRules->get_onshelfholds_policy(
+ { item => $item, patron => $patron } )
+ unless $allow_onshelf_holds;
+
+ # get collection code description, too
+ my $ccode = $item->ccode;
+ $item_info->{'ccode'} = $collections->{$ccode}
+ if defined($ccode)
+ && $collections
+ && exists( $collections->{$ccode} );
+
+ my $copynumber = $item->copynumber;
+ $item_info->{copynumber} = $copynumbers->{$copynumber}
+ if ( defined($copynumbers)
+ && defined($copynumber)
+ && exists( $copynumbers->{$copynumber} ) );
+
+ if ( defined $item->location ) {
+ $item_info->{'location_description'} =
+ $shelflocations->{ $item->location };
+ }
- my $reserve_status = C4::Reserves::GetReserveStatus($itm->{itemnumber});
- if ( $reserve_status eq "Waiting" ) { $itm->{'waiting'} = 1; }
- if ( $reserve_status eq "Reserved" ) { $itm->{'onhold'} = 1; }
+ my $itemtype = $item->itemtype;
+ $item_info->{'imageurl'} = getitemtypeimagelocation( 'opac',
+ $itemtypes->{ $itemtype->itemtype }->{'imageurl'} );
+ $item_info->{'description'} =
+ $itemtypes->{ $itemtype->itemtype }->{translated_description};
- if ( C4::Context->preference('UseRecalls') ) {
- my $pending_recall_count = Koha::Recalls->search(
- {
- item_id => $itm->{itemnumber},
- status => 'waiting',
- }
- )->count;
- if ( $pending_recall_count ) { $itm->{has_pending_recall} = 1; }
- }
+ foreach my $field (
+ qw(ccode materials enumchron copynumber itemnotes location_description uri)
+ )
+ {
+ $itemfields{$field} = 1 if $item_info->{$field};
+ }
- my ( $transfertwhen, $transfertfrom, $transfertto ) = GetTransfers($itm->{itemnumber});
- if ( defined( $transfertwhen ) && $transfertwhen ne '' ) {
- $itm->{transfertwhen} = $transfertwhen;
- $itm->{transfertfrom} = $transfertfrom;
- $itm->{transfertto} = $transfertto;
- }
+ # FIXME The following must be Koha::Item->serial
+ my $serial_item = Koha::Serial::Items->find($item->itemnumber);
+ if ( $serial_item ) {
+ $item_info->{serial} = $serial_item;
+ }
- if ( C4::Context->preference('OPACAcquisitionDetails') ) {
- $itm->{on_order} = 1
- if grep { $_ eq $itm->{itemnumber} } @itemnumbers_on_order;
- }
+ $item_info->{checkout} = $item->checkout;
+ $item_info->{object} = $item;
- if ( C4::Context->preference("OPACLocalCoverImages") == 1 ) {
- $itm->{cover_images} = $item->cover_images;
- }
- if ( $item->in_bundle ) {
- my $host = $item->bundle_host;
- $itm->{bundle_host} = $host;
- }
+ if ( C4::Context->preference("OPACLocalCoverImages") == 1 ) {
+ $item_info->{cover_images} = $item->cover_images;
+ }
+
- my $itembranch = $itm->{$separatebranch};
- if ($currentbranch and C4::Context->preference('OpacSeparateHoldings')) {
- if ($itembranch and $itembranch eq $currentbranch) {
- push @itemloop, $itm;
+ if ( C4::Context->preference('UseCourseReserves') ) {
+ $item_info->{course_reserves} = GetItemCourseReservesInfo( itemnumber => $item->itemnumber );
+ }
+
+ $item_info->{holding_branch} = $item->holding_branch;
+ $item_info->{home_branch} = $item->home_branch;
+
+ my $itembranch = $item->$separatebranch;
+ if ( $currentbranch
+ and C4::Context->preference('OpacSeparateHoldings') )
+ {
+ if ( $itembranch and $itembranch eq $currentbranch ) {
+ push @itemloop, $item_info;
+ $itemloop_has_images++ if $item->cover_images->count;
+ }
+ else {
+ push @otheritemloop, $item_info;
+ $otheritemloop_has_images++ if $item->cover_images->count;
+ }
+ }
+ else {
+ push @itemloop, $item_info;
$itemloop_has_images++ if $item->cover_images->count;
- } else {
- push @otheritemloop, $itm;
- $otheritemloop_has_images++ if $item->cover_images->count;
}
- } else {
- push @itemloop, $itm;
- $itemloop_has_images++ if $item->cover_images->count;
}
- }
}
if( $allow_onshelf_holds || CountItemsIssued($biblionumber) || $biblio->has_items_waiting_or_intransit ) {
OpacStarRatings => C4::Context->preference("OpacStarRatings"),
);
-if (C4::Context->preference("AlternateHoldingsField") && scalar @items == 0) {
+if (C4::Context->preference("AlternateHoldingsField") && $items->count == 0) {
my $fieldspec = C4::Context->preference("AlternateHoldingsField");
my $subfields = substr $fieldspec, 3;
my $holdingsep = C4::Context->preference("AlternateHoldingsSeparator") || ' ';
}
$template->{VARS}->{'trackclicks'} = C4::Context->preference('TrackClicks');
-if ( C4::Context->preference('UseCourseReserves') ) {
- foreach my $i ( @items ) {
- $i->{'course_reserves'} = GetItemCourseReservesInfo( itemnumber => $i->{'itemnumber'} );
- }
-}
-
$template->param(
'OpacLocationBranchToDisplay' => C4::Context->preference('OpacLocationBranchToDisplay'),
);