Lines 1003-1028
sub can_request_article {
Link Here
|
1003 |
|
1003 |
|
1004 |
=head3 article_requests |
1004 |
=head3 article_requests |
1005 |
|
1005 |
|
1006 |
my @requests = $borrower->article_requests(); |
1006 |
my $article_requests = $patron->article_requests; |
1007 |
my $requests = $borrower->article_requests(); |
|
|
1008 |
|
1007 |
|
1009 |
Returns either a list of ArticleRequests objects, |
1008 |
Returns the patron article requests. |
1010 |
or an ArtitleRequests object, depending on the |
|
|
1011 |
calling context. |
1012 |
|
1009 |
|
1013 |
=cut |
1010 |
=cut |
1014 |
|
1011 |
|
1015 |
sub article_requests { |
1012 |
sub article_requests { |
1016 |
my ( $self ) = @_; |
1013 |
my ($self) = @_; |
1017 |
|
|
|
1018 |
$self->{_article_requests} ||= Koha::ArticleRequests->search({ borrowernumber => $self->borrowernumber() }); |
1019 |
|
1014 |
|
1020 |
return $self->{_article_requests}; |
1015 |
return Koha::ArticleRequests->_new_from_dbic( scalar $self->_result->article_requests ); |
1021 |
} |
1016 |
} |
1022 |
|
1017 |
|
1023 |
=head3 article_requests_current |
1018 |
=head3 article_requests_current |
1024 |
|
1019 |
|
1025 |
my @requests = $patron->article_requests_current |
1020 |
my $current_article_requests = $patron->article_requests_current |
1026 |
|
1021 |
|
1027 |
Returns the article requests associated with this patron that are incomplete |
1022 |
Returns the article requests associated with this patron that are incomplete |
1028 |
|
1023 |
|
Lines 1031-1053
Returns the article requests associated with this patron that are incomplete
Link Here
|
1031 |
sub article_requests_current { |
1026 |
sub article_requests_current { |
1032 |
my ( $self ) = @_; |
1027 |
my ( $self ) = @_; |
1033 |
|
1028 |
|
1034 |
$self->{_article_requests_current} ||= Koha::ArticleRequests->search( |
1029 |
return $self->article_requests->filter_by_current; |
1035 |
{ |
|
|
1036 |
borrowernumber => $self->id(), |
1037 |
-or => [ |
1038 |
{ status => Koha::ArticleRequest::Status::Requested }, |
1039 |
{ status => Koha::ArticleRequest::Status::Pending }, |
1040 |
{ status => Koha::ArticleRequest::Status::Processing } |
1041 |
] |
1042 |
} |
1043 |
); |
1044 |
|
1045 |
return $self->{_article_requests_current}; |
1046 |
} |
1030 |
} |
1047 |
|
1031 |
|
1048 |
=head3 article_requests_finished |
1032 |
=head3 article_requests_finished |
1049 |
|
1033 |
|
1050 |
my @requests = $biblio->article_requests_finished |
1034 |
my $finished_article_requests = $biblio->article_requests_finished |
1051 |
|
1035 |
|
1052 |
Returns the article requests associated with this patron that are completed |
1036 |
Returns the article requests associated with this patron that are completed |
1053 |
|
1037 |
|
Lines 1056-1072
Returns the article requests associated with this patron that are completed
Link Here
|
1056 |
sub article_requests_finished { |
1040 |
sub article_requests_finished { |
1057 |
my ( $self, $borrower ) = @_; |
1041 |
my ( $self, $borrower ) = @_; |
1058 |
|
1042 |
|
1059 |
$self->{_article_requests_finished} ||= Koha::ArticleRequests->search( |
1043 |
return $self->article_requests->filter_by_finished; |
1060 |
{ |
|
|
1061 |
borrowernumber => $self->id(), |
1062 |
-or => [ |
1063 |
{ status => Koha::ArticleRequest::Status::Completed }, |
1064 |
{ status => Koha::ArticleRequest::Status::Canceled } |
1065 |
] |
1066 |
} |
1067 |
); |
1068 |
|
1069 |
return $self->{_article_requests_finished}; |
1070 |
} |
1044 |
} |
1071 |
|
1045 |
|
1072 |
=head3 add_enrolment_fee_if_needed |
1046 |
=head3 add_enrolment_fee_if_needed |
1073 |
- |
|
|