use Carp;
-use C4::Biblio qw( GetRecordValue GetMarcBiblio GetFrameworkCode );
+use C4::Biblio qw();
use Koha::Database;
+use Koha::DateUtils qw( dt_from_string );
use base qw(Koha::Object);
+use Koha::Items;
+use Koha::Biblioitems;
+use Koha::ArticleRequests;
+use Koha::ArticleRequest::Status;
+use Koha::IssuingRules;
+use Koha::Subscriptions;
+
=head1 NAME
Koha::Biblio - Koha Biblio Object class
sub subtitles {
my ( $self ) = @_;
- return map { $_->{subfield} } @{ GetRecordValue( 'subtitle', GetMarcBiblio( $self->id ), $self->frameworkcode ) };
+ return map { $_->{subfield} } @{
+ C4::Biblio::GetRecordValue(
+ 'subtitle',
+ C4::Biblio::GetMarcBiblio({ biblionumber => $self->id }),
+ $self->frameworkcode ) };
+}
+
+=head3 can_article_request
+
+my $bool = $biblio->can_article_request( $borrower );
+
+Returns true if article requests can be made for this record
+
+$borrower must be a Koha::Patron object
+
+=cut
+
+sub can_article_request {
+ my ( $self, $borrower ) = @_;
+
+ my $rule = $self->article_request_type($borrower);
+ return q{} if $rule eq 'item_only' && !$self->items()->count();
+ return 1 if $rule && $rule ne 'no';
+
+ return q{};
+}
+
+=head3 article_request_type
+
+my $type = $biblio->article_request_type( $borrower );
+
+Returns the article request type based on items, or on the record
+itself if there are no items.
+
+$borrower must be a Koha::Patron object
+
+=cut
+
+sub article_request_type {
+ my ( $self, $borrower ) = @_;
+
+ return q{} unless $borrower;
+
+ my $rule = $self->article_request_type_for_items( $borrower );
+ return $rule if $rule;
+
+ # If the record has no items that are requestable, go by the record itemtype
+ $rule = $self->article_request_type_for_bib($borrower);
+ return $rule if $rule;
+
+ return q{};
+}
+
+=head3 article_request_type_for_bib
+
+my $type = $biblio->article_request_type_for_bib
+
+Returns the article request type 'yes', 'no', 'item_only', 'bib_only', for the given record
+
+=cut
+
+sub article_request_type_for_bib {
+ my ( $self, $borrower ) = @_;
+
+ return q{} unless $borrower;
+
+ my $borrowertype = $borrower->categorycode;
+ my $itemtype = $self->itemtype();
+
+ my $issuing_rule = Koha::IssuingRules->get_effective_issuing_rule({ categorycode => $borrowertype, itemtype => $itemtype });
+
+ return q{} unless $issuing_rule;
+ return $issuing_rule->article_requests || q{}
+}
+
+=head3 article_request_type_for_items
+
+my $type = $biblio->article_request_type_for_items
+
+Returns the article request type 'yes', 'no', 'item_only', 'bib_only', for the given record's items
+
+If there is a conflict where some items are 'bib_only' and some are 'item_only', 'bib_only' will be returned.
+
+=cut
+
+sub article_request_type_for_items {
+ my ( $self, $borrower ) = @_;
+
+ my $counts;
+ foreach my $item ( $self->items()->as_list() ) {
+ my $rule = $item->article_request_type($borrower);
+ return $rule if $rule eq 'bib_only'; # we don't need to go any further
+ $counts->{$rule}++;
+ }
+
+ return 'item_only' if $counts->{item_only};
+ return 'yes' if $counts->{yes};
+ return 'no' if $counts->{no};
+ return q{};
+}
+
+=head3 article_requests
+
+my @requests = $biblio->article_requests
+
+Returns the article requests associated with this Biblio
+
+=cut
+
+sub article_requests {
+ my ( $self, $borrower ) = @_;
+
+ $self->{_article_requests} ||= Koha::ArticleRequests->search( { biblionumber => $self->biblionumber() } );
+
+ return wantarray ? $self->{_article_requests}->as_list : $self->{_article_requests};
+}
+
+=head3 article_requests_current
+
+my @requests = $biblio->article_requests_current
+
+Returns the article requests associated with this Biblio that are incomplete
+
+=cut
+
+sub article_requests_current {
+ my ( $self, $borrower ) = @_;
+
+ $self->{_article_requests_current} ||= Koha::ArticleRequests->search(
+ {
+ biblionumber => $self->biblionumber(),
+ -or => [
+ { status => Koha::ArticleRequest::Status::Pending },
+ { status => Koha::ArticleRequest::Status::Processing }
+ ]
+ }
+ );
+
+ return wantarray ? $self->{_article_requests_current}->as_list : $self->{_article_requests_current};
+}
+
+=head3 article_requests_finished
+
+my @requests = $biblio->article_requests_finished
+
+Returns the article requests associated with this Biblio that are completed
+
+=cut
+
+sub article_requests_finished {
+ my ( $self, $borrower ) = @_;
+
+ $self->{_article_requests_finished} ||= Koha::ArticleRequests->search(
+ {
+ biblionumber => $self->biblionumber(),
+ -or => [
+ { status => Koha::ArticleRequest::Status::Completed },
+ { status => Koha::ArticleRequest::Status::Canceled }
+ ]
+ }
+ );
+
+ return wantarray ? $self->{_article_requests_finished}->as_list : $self->{_article_requests_finished};
+}
+
+=head3 items
+
+my @items = $biblio->items();
+my $items = $biblio->items();
+
+Returns the related Koha::Items object for this biblio in scalar context,
+or list of Koha::Item objects in list context.
+
+=cut
+
+sub items {
+ my ($self) = @_;
+
+ $self->{_items} ||= Koha::Items->search( { biblionumber => $self->biblionumber() } );
+
+ return wantarray ? $self->{_items}->as_list : $self->{_items};
+}
+
+=head3 itemtype
+
+my $itemtype = $biblio->itemtype();
+
+Returns the itemtype for this record.
+
+=cut
+
+sub itemtype {
+ my ( $self ) = @_;
+
+ return $self->biblioitem()->itemtype();
+}
+
+=head3 holds
+
+my $holds = $biblio->holds();
+
+return the current holds placed on this record
+
+=cut
+
+sub holds {
+ my ( $self, $params, $attributes ) = @_;
+ $attributes->{order_by} = 'priority' unless exists $attributes->{order_by};
+ my $hold_rs = $self->_result->reserves->search( $params, $attributes );
+ return Koha::Holds->_new_from_dbic($hold_rs);
+}
+
+=head3 current_holds
+
+my $holds = $biblio->current_holds
+
+Return the holds placed on this bibliographic record.
+It does not include future holds.
+
+=cut
+
+sub current_holds {
+ my ($self) = @_;
+ my $dtf = Koha::Database->new->schema->storage->datetime_parser;
+ return $self->holds(
+ { reservedate => { '<=' => $dtf->format_date(dt_from_string) } } );
+}
+
+=head3 biblioitem
+
+my $field = $self->biblioitem()->itemtype
+
+Returns the related Koha::Biblioitem object for this Biblio object
+
+=cut
+
+sub biblioitem {
+ my ($self) = @_;
+
+ $self->{_biblioitem} ||= Koha::Biblioitems->find( { biblionumber => $self->biblionumber() } );
+
+ return $self->{_biblioitem};
+}
+
+=head3 subscriptions
+
+my $subscriptions = $self->subscriptions
+
+Returns the related Koha::Subscriptions object for this Biblio object
+
+=cut
+
+sub subscriptions {
+ my ($self) = @_;
+
+ $self->{_subscriptions} ||= Koha::Subscriptions->search( { biblionumber => $self->biblionumber } );
+
+ return $self->{_subscriptions};
}