|
Lines 983-1008
sub can_request_article {
Link Here
|
| 983 |
|
983 |
|
| 984 |
=head3 article_requests |
984 |
=head3 article_requests |
| 985 |
|
985 |
|
| 986 |
my @requests = $borrower->article_requests(); |
986 |
my $article_requests = $patron->article_requests; |
| 987 |
my $requests = $borrower->article_requests(); |
|
|
| 988 |
|
987 |
|
| 989 |
Returns either a list of ArticleRequests objects, |
988 |
Returns the patron article requests. |
| 990 |
or an ArtitleRequests object, depending on the |
|
|
| 991 |
calling context. |
| 992 |
|
989 |
|
| 993 |
=cut |
990 |
=cut |
| 994 |
|
991 |
|
| 995 |
sub article_requests { |
992 |
sub article_requests { |
| 996 |
my ( $self ) = @_; |
993 |
my ($self) = @_; |
| 997 |
|
|
|
| 998 |
$self->{_article_requests} ||= Koha::ArticleRequests->search({ borrowernumber => $self->borrowernumber() }); |
| 999 |
|
994 |
|
| 1000 |
return $self->{_article_requests}; |
995 |
return Koha::ArticleRequests->_new_from_dbic( scalar $self->_result->article_requests ); |
| 1001 |
} |
996 |
} |
| 1002 |
|
997 |
|
| 1003 |
=head3 article_requests_current |
998 |
=head3 article_requests_current |
| 1004 |
|
999 |
|
| 1005 |
my @requests = $patron->article_requests_current |
1000 |
my $current_article_requests = $patron->article_requests_current |
| 1006 |
|
1001 |
|
| 1007 |
Returns the article requests associated with this patron that are incomplete |
1002 |
Returns the article requests associated with this patron that are incomplete |
| 1008 |
|
1003 |
|
|
Lines 1011-1033
Returns the article requests associated with this patron that are incomplete
Link Here
|
| 1011 |
sub article_requests_current { |
1006 |
sub article_requests_current { |
| 1012 |
my ( $self ) = @_; |
1007 |
my ( $self ) = @_; |
| 1013 |
|
1008 |
|
| 1014 |
$self->{_article_requests_current} ||= Koha::ArticleRequests->search( |
1009 |
return $self->article_requests->filter_by_current; |
| 1015 |
{ |
|
|
| 1016 |
borrowernumber => $self->id(), |
| 1017 |
-or => [ |
| 1018 |
{ status => Koha::ArticleRequest::Status::Requested }, |
| 1019 |
{ status => Koha::ArticleRequest::Status::Pending }, |
| 1020 |
{ status => Koha::ArticleRequest::Status::Processing } |
| 1021 |
] |
| 1022 |
} |
| 1023 |
); |
| 1024 |
|
| 1025 |
return $self->{_article_requests_current}; |
| 1026 |
} |
1010 |
} |
| 1027 |
|
1011 |
|
| 1028 |
=head3 article_requests_finished |
1012 |
=head3 article_requests_finished |
| 1029 |
|
1013 |
|
| 1030 |
my @requests = $biblio->article_requests_finished |
1014 |
my $finished_article_requests = $biblio->article_requests_finished |
| 1031 |
|
1015 |
|
| 1032 |
Returns the article requests associated with this patron that are completed |
1016 |
Returns the article requests associated with this patron that are completed |
| 1033 |
|
1017 |
|
|
Lines 1036-1052
Returns the article requests associated with this patron that are completed
Link Here
|
| 1036 |
sub article_requests_finished { |
1020 |
sub article_requests_finished { |
| 1037 |
my ( $self, $borrower ) = @_; |
1021 |
my ( $self, $borrower ) = @_; |
| 1038 |
|
1022 |
|
| 1039 |
$self->{_article_requests_finished} ||= Koha::ArticleRequests->search( |
1023 |
return $self->article_requests->filter_by_finished; |
| 1040 |
{ |
|
|
| 1041 |
borrowernumber => $self->id(), |
| 1042 |
-or => [ |
| 1043 |
{ status => Koha::ArticleRequest::Status::Completed }, |
| 1044 |
{ status => Koha::ArticleRequest::Status::Canceled } |
| 1045 |
] |
| 1046 |
} |
| 1047 |
); |
| 1048 |
|
| 1049 |
return $self->{_article_requests_finished}; |
| 1050 |
} |
1024 |
} |
| 1051 |
|
1025 |
|
| 1052 |
=head3 add_enrolment_fee_if_needed |
1026 |
=head3 add_enrolment_fee_if_needed |
| 1053 |
- |
|
|