use URI::Escape qw( uri_escape_utf8 );
use C4::Koha qw( GetNormalizedISBN );
-use C4::XSLT qw( transformMARCXML4XSLT );
use Koha::Database;
use Koha::DateUtils qw( dt_from_string );
use Koha::Acquisition::Orders;
use Koha::ArticleRequests;
use Koha::Biblio::Metadatas;
+use Koha::Biblio::ItemGroups;
use Koha::Biblioitems;
use Koha::Checkouts;
use Koha::CirculationRules;
use Koha::Items;
use Koha::Libraries;
use Koha::Old::Checkouts;
+use Koha::Recalls;
+use Koha::RecordProcessor;
use Koha::Suggestions;
use Koha::Subscriptions;
use Koha::SearchEngine;
return $self->orders->search({ datecancellationprinted => undef });
}
+=head3 item_groups
+
+my $item_groups = $biblio->item_groups();
+
+Returns a Koha::Biblio::ItemGroups object
+
+=cut
+
+sub item_groups {
+ my ( $self ) = @_;
+
+ my $item_groups = $self->_result->item_groups;
+ return Koha::Biblio::ItemGroups->_new_from_dbic($item_groups);
+}
+
=head3 can_article_request
my $bool = $biblio->can_article_request( $borrower );
my $components = $self->get_marc_components();
-Returns an array of MARCXML data, which are component parts of
-this object (MARC21 773$w points to this)
+Returns an array of search results data, which are component parts of
+this object (MARC21 773 points to this)
=cut
return [] if (C4::Context->preference('marcflavour') ne 'MARC21');
- my $searchstr = $self->get_components_query;
+ my ( $searchstr, $sort ) = $self->get_components_query;
my $components;
if (defined($searchstr)) {
my $searcher = Koha::SearchEngine::Search->new({index => $Koha::SearchEngine::BIBLIOS_INDEX});
- my ( $error, $results, $total_hits );
+ my ( $error, $results, $facets );
eval {
- ( $error, $results, $total_hits ) = $searcher->simple_search_compat( $searchstr, 0, $max_results );
+ ( $error, $results, $facets ) = $searcher->search_compat( $searchstr, undef, [$sort], ['biblioserver'], $max_results, 0, undef, undef, 'ccl', 0 );
};
if( $error || $@ ) {
$error //= q{};
$error .= $@ if $@;
- warn "Warning from simple_search_compat: '$error'";
+ warn "Warning from search_compat: '$error'";
$self->add_message(
{
type => 'error',
}
);
}
- $components = $results if defined($results) && @$results;
+ $components = $results->{biblioserver}->{RECORDS} if defined($results) && $results->{biblioserver}->{hits};
}
return $components // [];
my $builder = Koha::SearchEngine::QueryBuilder->new(
{ index => $Koha::SearchEngine::BIBLIOS_INDEX } );
my $marc = $self->metadata->record;
+ my $component_sort_field = C4::Context->preference('ComponentSortField') // "title";
+ my $component_sort_order = C4::Context->preference('ComponentSortOrder') // "asc";
+ my $sort = $component_sort_field . "_" . $component_sort_order;
my $searchstr;
if ( C4::Context->preference('UseControlNumber') ) {
my $cleaned_title = $marc->subfield('245', "a");
$cleaned_title =~ tr|/||;
$cleaned_title = $builder->clean_search_term($cleaned_title);
- $searchstr = "Host-item:($cleaned_title)";
+ $searchstr = qq#Host-item:("$cleaned_title")#;
+ }
+ my ($error, $query_str) = $builder->build_query_compat( undef, [$searchstr], undef, undef, [$sort], 0 );
+ if( $error ){
+ warn $error;
+ return;
}
- return $searchstr;
+ return ($query_str, $sort);
}
=head3 subscriptions
=head3 get_marc_notes
- $marcnotesarray = $biblio->get_marc_notes({ marcflavour => $marcflavour });
+ $marcnotesarray = $biblio->get_marc_notes({ opac => 1 });
Get all notes from the MARC record and returns them in an array.
The notes are stored in different fields depending on MARC flavour.
sub get_marc_notes {
my ( $self, $params ) = @_;
- my $marcflavour = $params->{marcflavour};
- my $opac = $params->{opac};
+ my $marcflavour = C4::Context->preference('marcflavour');
+ my $opac = $params->{opac} // '0';
+ my $interface = $params->{opac} ? 'opac' : 'intranet';
- my $scope = $marcflavour eq "UNIMARC"? '3..': '5..';
- my @marcnotes;
+ my $record = $params->{record} // $self->metadata->record;
+ my $record_processor = Koha::RecordProcessor->new(
+ {
+ filters => [ 'ViewPolicy', 'ExpandCodedFields' ],
+ options => {
+ interface => $interface,
+ frameworkcode => $self->frameworkcode
+ }
+ }
+ );
+ $record_processor->process($record);
+ my $scope = $marcflavour eq "UNIMARC"? '3..': '5..';
#MARC21 specs indicate some notes should be private if first indicator 0
my %maybe_private = (
541 => 1,
my %hiddenlist = map { $_ => 1 }
split( /,/, C4::Context->preference('NotesToHide'));
- my $record = $self->metadata->record;
- $record = transformMARCXML4XSLT( $self->biblionumber, $record, $opac );
+ my @marcnotes;
foreach my $field ( $record->field($scope) ) {
my $tag = $field->tag();
next if $hiddenlist{ $tag };
return \@marcnotes;
}
-=head3 get_marc_authors
-
- my $authors = $biblio->get_marc_authors;
+=head3 _get_marc_authors
-Get all authors from the MARC record and returns them in an array.
-The authors are stored in different fields depending on MARC flavour
+Private method to return the list of authors contained in the MARC record.
+See get get_marc_contributors and get_marc_authors for the public methods.
=cut
-sub get_marc_authors {
+sub _get_marc_authors {
my ( $self, $params ) = @_;
- my ( $mintag, $maxtag, $fields_filter );
- my $marcflavour = C4::Context->preference('marcflavour');
+ my $fields_filter = $params->{fields_filter};
+ my $mintag = $params->{mintag};
+ my $maxtag = $params->{maxtag};
+
+ my $AuthoritySeparator = C4::Context->preference('AuthoritySeparator');
+ my $marcflavour = C4::Context->preference('marcflavour');
# tagslib useful only for UNIMARC author responsibilities
- my $tagslib;
- if ( $marcflavour eq "UNIMARC" ) {
- $tagslib = C4::Biblio::GetMarcStructure( 1, $self->frameworkcode, { unsafe => 1 });
- $mintag = "700";
- $maxtag = "712";
- $fields_filter = '7..';
- } else { # marc21/normarc
- $mintag = "700";
- $maxtag = "720";
- $fields_filter = '7..';
- }
+ my $tagslib = $marcflavour eq "UNIMARC"
+ ? C4::Biblio::GetMarcStructure( 1, $self->frameworkcode, { unsafe => 1 } )
+ : undef;
my @marcauthors;
- my $AuthoritySeparator = C4::Context->preference('AuthoritySeparator');
-
foreach my $field ( $self->metadata->record->field($fields_filter) ) {
- next unless $field->tag() >= $mintag && $field->tag() <= $maxtag;
+
+ next
+ if $mintag && $field->tag() < $mintag
+ || $maxtag && $field->tag() > $maxtag;
+
my @subfields_loop;
my @link_loop;
my @subfields = $field->subfields();
return \@marcauthors;
}
+=head3 get_marc_contributors
+
+ my $contributors = $biblio->get_marc_contributors;
+
+Get all contributors (but first author) from the MARC record and returns them in an array.
+They are stored in different fields depending on MARC flavour (700..720 for MARC21)
+
+=cut
+
+sub get_marc_contributors {
+ my ( $self, $params ) = @_;
+
+ my ( $mintag, $maxtag, $fields_filter );
+ my $marcflavour = C4::Context->preference('marcflavour');
+
+ if ( $marcflavour eq "UNIMARC" ) {
+ $mintag = "700";
+ $maxtag = "712";
+ $fields_filter = '7..';
+ } else { # marc21/normarc
+ $mintag = "700";
+ $maxtag = "720";
+ $fields_filter = '7..';
+ }
+
+ return $self->_get_marc_authors(
+ {
+ fields_filter => $fields_filter,
+ mintag => $mintag,
+ maxtag => $maxtag
+ }
+ );
+}
+
+=head3 get_marc_authors
+
+ my $authors = $biblio->get_marc_authors;
+
+Get all authors from the MARC record and returns them in an array.
+They are stored in different fields depending on MARC flavour
+(main author from 100 then secondary authors from 700..720).
+
+=cut
+
+sub get_marc_authors {
+ my ( $self, $params ) = @_;
+
+ my ( $mintag, $maxtag, $fields_filter );
+ my $marcflavour = C4::Context->preference('marcflavour');
+
+ if ( $marcflavour eq "UNIMARC" ) {
+ $fields_filter = '200';
+ } else { # marc21/normarc
+ $fields_filter = '100';
+ }
+
+ my @first_authors = @{$self->_get_marc_authors(
+ {
+ fields_filter => $fields_filter,
+ mintag => $mintag,
+ maxtag => $maxtag
+ }
+ )};
+
+ my @other_authors = @{$self->get_marc_contributors};
+
+ return [@first_authors, @other_authors];
+}
+
+
=head3 to_api
my $json = $biblio->to_api;
unititle => 'uniform_title',
seriestitle => 'series_title',
copyrightdate => 'copyright_date',
- datecreated => 'creation_date'
+ datecreated => 'creation_date',
+ deleted_on => undef,
};
}
}
}
+=head3 recalls
+
+ my $recalls = $biblio->recalls;
+
+Return recalls linked to this biblio
+
+=cut
+
+sub recalls {
+ my ( $self ) = @_;
+ return Koha::Recalls->_new_from_dbic( scalar $self->_result->recalls );
+}
+
+=head3 can_be_recalled
+
+ my @items_for_recall = $biblio->can_be_recalled({ patron => $patron_object });
+
+Does biblio-level checks and returns the items attached to this biblio that are available for recall
+
+=cut
+
+sub can_be_recalled {
+ my ( $self, $params ) = @_;
+
+ return 0 if !( C4::Context->preference('UseRecalls') );
+
+ my $patron = $params->{patron};
+
+ my $branchcode = C4::Context->userenv->{'branch'};
+ if ( C4::Context->preference('CircControl') eq 'PatronLibrary' and $patron ) {
+ $branchcode = $patron->branchcode;
+ }
+
+ my @all_items = Koha::Items->search({ biblionumber => $self->biblionumber })->as_list;
+
+ # if there are no available items at all, no recall can be placed
+ return 0 if ( scalar @all_items == 0 );
+
+ my @itemtypes;
+ my @itemnumbers;
+ my @items;
+ my @all_itemnumbers;
+ foreach my $item ( @all_items ) {
+ push( @all_itemnumbers, $item->itemnumber );
+ if ( $item->can_be_recalled({ patron => $patron }) ) {
+ push( @itemtypes, $item->effective_itemtype );
+ push( @itemnumbers, $item->itemnumber );
+ push( @items, $item );
+ }
+ }
+
+ # if there are no recallable items, no recall can be placed
+ return 0 if ( scalar @items == 0 );
+
+ # Check the circulation rule for each relevant itemtype for this biblio
+ my ( @recalls_allowed, @recalls_per_record, @on_shelf_recalls );
+ foreach my $itemtype ( @itemtypes ) {
+ my $rule = Koha::CirculationRules->get_effective_rules({
+ branchcode => $branchcode,
+ categorycode => $patron ? $patron->categorycode : undef,
+ itemtype => $itemtype,
+ rules => [
+ 'recalls_allowed',
+ 'recalls_per_record',
+ 'on_shelf_recalls',
+ ],
+ });
+ push( @recalls_allowed, $rule->{recalls_allowed} ) if $rule;
+ push( @recalls_per_record, $rule->{recalls_per_record} ) if $rule;
+ push( @on_shelf_recalls, $rule->{on_shelf_recalls} ) if $rule;
+ }
+ my $recalls_allowed = (sort {$b <=> $a} @recalls_allowed)[0]; # take highest
+ my $recalls_per_record = (sort {$b <=> $a} @recalls_per_record)[0]; # take highest
+ my %on_shelf_recalls_count = ();
+ foreach my $count ( @on_shelf_recalls ) {
+ $on_shelf_recalls_count{$count}++;
+ }
+ my $on_shelf_recalls = (sort {$on_shelf_recalls_count{$b} <=> $on_shelf_recalls_count{$a}} @on_shelf_recalls)[0]; # take most common
+
+ # check recalls allowed has been set and is not zero
+ return 0 if ( !defined($recalls_allowed) || $recalls_allowed == 0 );
+
+ if ( $patron ) {
+ # check borrower has not reached open recalls allowed limit
+ return 0 if ( $patron->recalls->filter_by_current->count >= $recalls_allowed );
+
+ # check borrower has not reached open recalls allowed per record limit
+ return 0 if ( $patron->recalls->filter_by_current->search({ biblio_id => $self->biblionumber })->count >= $recalls_per_record );
+
+ # check if any of the items under this biblio are already checked out by this borrower
+ return 0 if ( Koha::Checkouts->search({ itemnumber => [ @all_itemnumbers ], borrowernumber => $patron->borrowernumber })->count > 0 );
+ }
+
+ # check item availability
+ my $checked_out_count = 0;
+ foreach (@items) {
+ if ( Koha::Checkouts->search({ itemnumber => $_->itemnumber })->count > 0 ){ $checked_out_count++; }
+ }
+
+ # can't recall if on shelf recalls only allowed when all unavailable, but items are still available for checkout
+ return 0 if ( $on_shelf_recalls eq 'all' && $checked_out_count < scalar @items );
+
+ # can't recall if no items have been checked out
+ return 0 if ( $checked_out_count == 0 );
+
+ # can recall
+ return @items;
+}
+
=head2 Internal methods
=head3 type