@@ -, +, @@ methods from Koha::Patrons prove t/db_dependent/ArticleRequests.t --- Koha/Patrons.pm | 67 --------------------------------------------------------- 1 file changed, 67 deletions(-) --- a/Koha/Patrons.pm +++ a/Koha/Patrons.pm @@ -115,73 +115,6 @@ sub guarantor { return Koha::Patrons->find( $self->guarantorid() ); } -=head3 article_requests - -my @requests = $borrower->article_requests(); -my $requests = $borrower->article_requests(); - -Returns either a list of ArticleRequests objects, -or an ArtitleRequests object, depending on the -calling context. - -=cut - -sub article_requests { - my ( $self ) = @_; - - $self->{_article_requests} ||= Koha::ArticleRequests->search({ borrowernumber => $self->borrowernumber() }); - - return $self->{_article_requests}; -} - -=head3 article_requests_current - -my @requests = $patron->article_requests_current - -Returns the article requests associated with this patron that are incomplete - -=cut - -sub article_requests_current { - my ( $self ) = @_; - - $self->{_article_requests_current} ||= Koha::ArticleRequests->search( - { - borrowernumber => $self->id(), - -or => [ - { status => Koha::ArticleRequest::Status::Pending }, - { status => Koha::ArticleRequest::Status::Processing } - ] - } - ); - - return $self->{_article_requests_current}; -} - -=head3 article_requests_finished - -my @requests = $biblio->article_requests_finished - -Returns the article requests associated with this patron that are completed - -=cut - -sub article_requests_finished { - my ( $self, $borrower ) = @_; - - $self->{_article_requests_finished} ||= Koha::ArticleRequests->search( - { - borrowernumber => $self->id(), - -or => [ - { status => Koha::ArticleRequest::Status::Completed }, - { status => Koha::ArticleRequest::Status::Canceled } - ] - } - ); - - return $self->{_article_requests_finished}; -} - =head3 search_patrons_to_anonymise my $patrons = Koha::Patrons->search_patrons_to_anonymise( { before => $older_than_date, [ library => $library ] } ); --