use C4::Items;
use C4::Circulation;
use C4::Tags qw(get_tags);
-use C4::XISBN qw(get_xisbns get_biblionumber_from_isbn);
+use C4::XISBN qw(get_xisbns);
use C4::External::Amazon;
use C4::External::Syndetics qw(get_syndetics_index get_syndetics_summary get_syndetics_toc get_syndetics_excerpt get_syndetics_reviews get_syndetics_anotes );
use C4::Members;
use C4::ShelfBrowser;
use C4::Reserves;
use C4::Charset;
+use C4::Letters;
use MARC::Record;
use MARC::Field;
use List::MoreUtils qw/any none/;
use Koha::DateUtils;
use C4::HTML5Media;
use C4::CourseReserves qw(GetItemCourseReservesInfo);
+
+use Koha::Biblios;
use Koha::RecordProcessor;
+use Koha::AuthorisedValues;
+use Koha::IssuingRules;
+use Koha::Items;
+use Koha::ItemTypes;
+use Koha::Acquisition::Orders;
use Koha::Virtualshelves;
+use Koha::Patrons;
use Koha::Ratings;
use Koha::Reviews;
}
}
-my $query = new CGI;
+my $query = CGI->new();
+
+my $biblionumber = $query->param('biblionumber') || $query->param('bib') || 0;
+$biblionumber = int($biblionumber);
+
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
{
template_name => "opac-detail.tt",
}
);
-my $biblionumber = $query->param('biblionumber') || $query->param('bib') || 0;
-$biblionumber = int($biblionumber);
-
my @all_items = GetItemsInfo($biblionumber);
my @hiddenitems;
-if (scalar @all_items >= 1) {
- push @hiddenitems, GetHiddenItemnumbers(@all_items);
+my $patron = Koha::Patrons->find( $borrowernumber );
+our $borcat= q{};
+if ( C4::Context->preference('OpacHiddenItemsExceptions') ) {
+ $borcat = $patron ? $patron->categorycode : q{};
+}
+
+my $record = GetMarcBiblio({
+ biblionumber => $biblionumber,
+ opac => 1 });
+if ( ! $record ) {
+ print $query->redirect("/cgi-bin/koha/errors/404.pl"); # escape early
+ exit;
+}
+
+if ( scalar @all_items >= 1 ) {
+ push @hiddenitems,
+ GetHiddenItemnumbers( { items => \@all_items, borcat => $borcat } );
if (scalar @hiddenitems == scalar @all_items ) {
print $query->redirect("/cgi-bin/koha/errors/404.pl"); # escape early
}
}
-my $record = GetMarcBiblio($biblionumber);
-if ( ! $record ) {
- print $query->redirect("/cgi-bin/koha/errors/404.pl"); # escape early
- exit;
-}
-my $framework = &GetFrameworkCode( $biblionumber );
+my $biblio = Koha::Biblios->find( $biblionumber );
+my $framework = $biblio ? $biblio->frameworkcode : q{};
my $record_processor = Koha::RecordProcessor->new({
filters => 'ViewPolicy',
options => {
}
}
-$template->param( biblionumber => $biblionumber );
+$template->param( biblio => $biblio );
# get biblionumbers stored in the cart
my @cart_list;
}
my $OpacBrowseResults = C4::Context->preference("OpacBrowseResults");
-$template->{VARS}->{'OpacBrowseResults'} = $OpacBrowseResults;
# We look for the busc param to build the simple paging from the search
if ($OpacBrowseResults) {
}
} else {
for my $value (@{$arrParamsBusc->{$_}}) {
+ next if !defined($value);
$pasarParams .= '&' if ($j);
$pasarParams .= $_ . '=' . Encode::decode('UTF-8', uri_escape_utf8($value));
$j++;
my ($arrParamsBusc, $offset, $results_per_page) = @_;
my $expanded_facet = $arrParamsBusc->{'expand'};
- my $itemtypes = GetItemTypes;
+ my $itemtypes = { map { $_->{itemtype} => $_ } @{ Koha::ItemTypes->search_with_localization->unblessed } };
my @servers;
@servers = @{$arrParamsBusc->{'server'}} if $arrParamsBusc->{'server'};
@servers = ("biblioserver") unless (@servers);
};
my $hits;
my @newresults;
+ my $search_context = {
+ 'interface' => 'opac',
+ 'category' => $borcat
+ };
for (my $i=0;$i<@servers;$i++) {
my $server = $servers[$i];
$hits = $results_hashref->{$server}->{"hits"};
- @newresults = searchResults('opac', '', $hits, $results_per_page, $offset, $arrParamsBusc->{'scan'}, $results_hashref->{$server}->{"RECORDS"});
+ @newresults = searchResults( $search_context, '', $hits, $results_per_page, $offset, $arrParamsBusc->{'scan'}, $results_hashref->{$server}->{"RECORDS"});
}
return \@newresults;
}#searchAgain
$numberBiblioPaging = $paging{'previous'}->{biblionumber};
if ($numberBiblioPaging) {
$template->param( 'previousBiblionumber' => $numberBiblioPaging );
- $dataBiblioPaging = GetBiblioData($numberBiblioPaging);
- $template->param('previousTitle' => $dataBiblioPaging->{'title'}) if ($dataBiblioPaging);
+ $dataBiblioPaging = Koha::Biblios->find( $numberBiblioPaging );
+ $template->param('previousTitle' => $dataBiblioPaging->title) if $dataBiblioPaging;
}
# Next biblio
$numberBiblioPaging = $paging{'next'}->{biblionumber};
if ($numberBiblioPaging) {
$template->param( 'nextBiblionumber' => $numberBiblioPaging );
- $dataBiblioPaging = GetBiblioData($numberBiblioPaging);
- $template->param('nextTitle' => $dataBiblioPaging->{'title'}) if ($dataBiblioPaging);
+ $dataBiblioPaging = Koha::Biblios->find( $numberBiblioPaging );
+ $template->param('nextTitle' => $dataBiblioPaging->title) if $dataBiblioPaging;
}
# Partial list of biblio results
my @listResults;
for (my $j = 0; $j < @arrBiblios; $j++) {
next unless ($arrBiblios[$j]);
- $dataBiblioPaging = GetBiblioData($arrBiblios[$j]) if ($arrBiblios[$j] != $biblionumber);
- 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]};
+ $dataBiblioPaging = Koha::Biblios->find( $arrBiblios[$j] ) if ($arrBiblios[$j] != $biblionumber);
+ 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]};
}
$template->param('listResults' => \@listResults) if (@listResults);
$template->param('indexPag' => 1 + $offset, 'totalPag' => $arrParamsBusc{'total'}, 'indexPagEnd' => scalar(@arrBiblios) + $offset);
+ $template->param( 'offset' => $offset );
}
}
-
-$template->param( 'ItemsIssued' => CountItemsIssued( $biblionumber ) );
-$template->param('OPACShowCheckoutName' => C4::Context->preference("OPACShowCheckoutName") );
-$template->param('OPACShowBarcode' => C4::Context->preference("OPACShowBarcode") );
+$template->param(
+ OPACShowCheckoutName => C4::Context->preference("OPACShowCheckoutName"),
+);
# adding items linked via host biblios
interface => 'opac',
} );
-my $itemtypes = GetItemTypes();
+my $itemtypes = { map { $_->{itemtype} => $_ } @{ Koha::ItemTypes->search_with_localization->unblessed } };
# imageurl:
my $itemtype = $dat->{'itemtype'};
if ( $itemtype ) {
$dat->{'imageurl'} = getitemtypeimagelocation( 'opac', $itemtypes->{$itemtype}->{'imageurl'} );
$dat->{'description'} = $itemtypes->{$itemtype}->{translated_description};
}
-my $shelflocations =GetKohaAuthorisedValues('items.location',$dat->{'frameworkcode'}, 'opac');
-my $collections = GetKohaAuthorisedValues('items.ccode',$dat->{'frameworkcode'}, 'opac');
-my $copynumbers = GetKohaAuthorisedValues('items.copynumber',$dat->{'frameworkcode'}, 'opac');
+
+my $shelflocations =
+ { map { $_->{authorised_value} => $_->{opac_description} } Koha::AuthorisedValues->get_descriptions_by_koha_field( { frameworkcode => $dat->{frameworkcode}, kohafield => 'items.location' } ) };
+my $collections =
+ { map { $_->{authorised_value} => $_->{opac_description} } Koha::AuthorisedValues->get_descriptions_by_koha_field( { frameworkcode => $dat->{frameworkcode}, kohafield => 'items.ccode' } ) };
+my $copynumbers =
+ { map { $_->{authorised_value} => $_->{opac_description} } Koha::AuthorisedValues->get_descriptions_by_koha_field( { frameworkcode => $dat->{frameworkcode}, kohafield => 'items.copynumber' } ) };
#coping with subscriptions
my $subscriptionsnumber = CountSubscriptionFromBiblionumber($biblionumber);
$cell{histstartdate} = $subscription->{histstartdate};
$cell{histenddate} = $subscription->{histenddate};
$cell{branchcode} = $subscription->{branchcode};
- $cell{hasalert} = $subscription->{hasalert};
$cell{callnumber} = $subscription->{callnumber};
$cell{closed} = $subscription->{closed};
+ $cell{letter} = $subscription->{letter};
+ $cell{biblionumber} = $subscription->{biblionumber};
#get the three latest serials.
$serials_to_display = $subscription->{opacdisplaycount};
$serials_to_display = C4::Context->preference('OPACSerialIssueDisplayCount') unless $serials_to_display;
$cell{opacdisplaycount} = $serials_to_display;
$cell{latestserials} =
GetLatestSerials( $subscription->{subscriptionid}, $serials_to_display );
+ if ( $borrowernumber ) {
+ my $subscription_object = Koha::Subscriptions->find( $subscription->{subscriptionid} );
+ my $subscriber = $subscription_object->subscribers->find( $borrowernumber );
+ $cell{hasalert} = 1 if $subscriber;
+ }
push @subs, \%cell;
}
}
my $has_hold;
if ( $show_holds_count || $show_priority) {
- my $reserves = GetReservesFromBiblionumber({ biblionumber => $biblionumber, all_dates => 1 });
- $template->param( holds_count => scalar( @$reserves ) ) if $show_holds_count;
- foreach (@$reserves) {
- $item_reserves{ $_->{itemnumber} }++ if $_->{itemnumber};
- if ($show_priority && $_->{borrowernumber} == $borrowernumber) {
+ my $holds = $biblio->holds;
+ $template->param( holds_count => $holds->count );
+ while ( my $hold = $holds->next ) {
+ $item_reserves{ $hold->itemnumber }++ if $hold->itemnumber;
+ if ($show_priority && $hold->borrowernumber == $borrowernumber) {
$has_hold = 1;
- $_->{itemnumber}
- ? ($priority{ $_->{itemnumber} } = $_->{priority})
- : ($template->param( priority => $_->{priority} ));
+ $hold->itemnumber
+ ? ($priority{ $hold->itemnumber } = $hold->priority)
+ : ($template->param( priority => $hold->priority ));
}
}
}
});
my $total_quantity = 0;
for my $order ( @$orders ) {
- if ( C4::Context->preference('AcqCreateItem') eq 'ordering' ) {
- for my $itemnumber ( C4::Acquisition::GetItemnumbersFromOrder( $order->{ordernumber} ) ) {
- push @itemnumbers_on_order, $itemnumber;
- }
+ 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');
}
$total_quantity += $order->{quantity};
}
};
}
+my $allow_onshelf_holds;
if ( not $viewallitems and @items > $max_items_to_display ) {
$template->param(
too_many_items => 1,
items_count => scalar( @items ),
);
} else {
- my $allow_onshelf_holds;
- my $borrower = GetMember( 'borrowernumber' => $borrowernumber );
for my $itm (@items) {
+ my $item = Koha::Items->find( $itm->{itemnumber} );
$itm->{holds_count} = $item_reserves{ $itm->{itemnumber} };
$itm->{priority} = $priority{ $itm->{itemnumber} };
$norequests = 0
&& !$itemtypes->{$itm->{'itype'}}->{notforloan}
&& $itm->{'itemnumber'};
- $allow_onshelf_holds = C4::Reserves::OnShelfHoldsAllowed( $itm, $borrower )
+ $allow_onshelf_holds = Koha::IssuingRules->get_onshelfholds_policy( { item => $item, patron => $patron } )
unless $allow_onshelf_holds;
# get collection code description, too
$itm->{'imageurl'} = getitemtypeimagelocation( 'opac', $itemtypes->{ $itm->{itype} }->{'imageurl'} );
$itm->{'description'} = $itemtypes->{ $itm->{itype} }->{translated_description};
}
- foreach (qw(ccode enumchron copynumber itemnotes uri)) {
+ foreach (qw(ccode enumchron copynumber itemnotes location_description uri)) {
$itemfields{$_} = 1 if ($itm->{$_});
}
$itm->{transfertto} = $transfertto;
}
- if ( C4::Context->preference('OPACAcquisitionDetails')
- and C4::Context->preference('AcqCreateItem') eq 'ordering' )
- {
+ if ( C4::Context->preference('OPACAcquisitionDetails') ) {
$itm->{on_order} = 1
if grep /^$itm->{itemnumber}$/, @itemnumbers_on_order;
}
push @itemloop, $itm;
}
}
- $template->param( 'AllowOnShelfHolds' => $allow_onshelf_holds );
+}
+
+if( $allow_onshelf_holds || CountItemsIssued($biblionumber) || $biblio->has_items_waiting_or_intransit ) {
+ $template->param( ReservableItems => 1 );
}
# Display only one tab if one items list is empty
my $marcnotesarray = GetMarcNotes ($record,$marcflavour);
my $subtitle = GetRecordValue('subtitle', $record, GetFrameworkCode($biblionumber));
+if( C4::Context->preference('ArticleRequests') ) {
+ my $patron = $borrowernumber ? Koha::Patrons->find($borrowernumber) : undef;
+ my $itemtype = Koha::ItemTypes->find($biblio->itemtype);
+ my $artreqpossible = $patron
+ ? $biblio->can_article_request( $patron )
+ : $itemtype
+ ? $itemtype->may_article_request
+ : q{};
+ $template->param( artreqpossible => $artreqpossible );
+}
+
$template->param(
MARCNOTES => $marcnotesarray,
norequests => $norequests,
itemdata_enumchron => $itemfields{enumchron},
itemdata_uri => $itemfields{uri},
itemdata_copynumber => $itemfields{copynumber},
- itemdata_itemnotes => $itemfields{itemnotes},
+ itemdata_itemnotes => $itemfields{itemnotes},
+ itemdata_location => $itemfields{location_description},
subtitle => $subtitle,
OpacStarRatings => C4::Context->preference("OpacStarRatings"),
);
}
}
for my $review (@$reviews) {
- my $borrowerData = GetMember( 'borrowernumber' => $review->{borrowernumber} );
+ my $review_patron = Koha::Patrons->find( $review->{borrowernumber} ); # FIXME Should be Koha::Review->reviewer or similar
# setting some borrower info into this hash
- $review->{title} = $borrowerData->{'title'};
- $review->{surname} = $borrowerData->{'surname'};
- $review->{firstname} = $borrowerData->{'firstname'};
- if ( $libravatar_enabled and $borrowerData->{'email'} ) {
- $review->{avatarurl} = libravatar_url( email => $borrowerData->{'email'}, https => $ENV{HTTPS} );
- }
- $review->{userid} = $borrowerData->{'userid'};
- $review->{cardnumber} = $borrowerData->{'cardnumber'};
+ if ( $review_patron ) {
+ $review->{patron} = $review_patron;
+ if ( $libravatar_enabled and $review_patron->email ) {
+ $review->{avatarurl} = libravatar_url( email => $review_patron->email, https => $ENV{HTTPS} );
+ }
- if ( $borrowerData->{'borrowernumber'} eq $borrowernumber ) {
- $review->{your_comment} = 1;
- $loggedincommenter = 1;
+ if ( $review_patron->borrowernumber eq $borrowernumber ) {
+ $loggedincommenter = 1;
+ }
}
}
}
$template->param(
itemloop => \@itemloop,
otheritemloop => \@otheritemloop,
- subscriptionsnumber => $subscriptionsnumber,
biblionumber => $biblionumber,
subscriptions => \@subs,
subscriptionsnumber => $subscriptionsnumber,
if (C4::Context->preference("OPACFRBRizeEditions")==1) {
eval {
$template->param(
- XISBNS => get_xisbns($isbn)
+ XISBNS => scalar get_xisbns($isbn)
);
};
if ($@) { warn "XISBN Failed $@"; }
{
$template->param(
BakerTaylorContentURL =>
- sprintf("http://contentcafe2.btol.com/ContentCafeClient/ContentCafe.aspx?UserID=%s&Password=%s&ItemKey=%s&Options=Y",
+ sprintf("https://contentcafe2.btol.com/ContentCafeClient/ContentCafe.aspx?UserID=%s&Password=%s&ItemKey=%s&Options=Y",
$bt_user,$bt_pass,$isbn)
);
}
$template->param(covernewwindow => 'false');
}
+$template->param(borrowernumber => $borrowernumber);
+
if ( C4::Context->preference('OpacStarRatings') !~ /disable/ ) {
my $ratings = Koha::Ratings->search({ biblionumber => $biblionumber });
my $my_rating = $borrowernumber ? $ratings->search({ borrowernumber => $borrowernumber })->next : undef;
$template->param(
ratings => $ratings,
my_rating => $my_rating,
- borrowernumber => $borrowernumber
);
}
# the user wants, and what's available for display
my $opac_serial_default = C4::Context->preference('opacSerialDefaultTab');
my $defaulttab =
+ $viewallitems
+ ? 'holdings' :
$opac_serial_default eq 'subscriptions' && $subscriptionsnumber
? 'subscriptions' :
$opac_serial_default eq 'serialcollection' && @serialcollections > 0
}
$template->param(
- 'OpacLocationBranchToDisplay' => C4::Context->preference('OpacLocationBranchToDisplay') ,
- 'OpacLocationBranchToDisplayShelving' => C4::Context->preference('OpacLocationBranchToDisplayShelving'),
+ 'OpacLocationBranchToDisplay' => C4::Context->preference('OpacLocationBranchToDisplay'),
);
output_html_with_http_headers $query, $cookie, $template->output;