Lines 115-187
sub guarantor {
Link Here
|
115 |
return Koha::Patrons->find( $self->guarantorid() ); |
115 |
return Koha::Patrons->find( $self->guarantorid() ); |
116 |
} |
116 |
} |
117 |
|
117 |
|
118 |
=head3 article_requests |
|
|
119 |
|
120 |
my @requests = $borrower->article_requests(); |
121 |
my $requests = $borrower->article_requests(); |
122 |
|
123 |
Returns either a list of ArticleRequests objects, |
124 |
or an ArtitleRequests object, depending on the |
125 |
calling context. |
126 |
|
127 |
=cut |
128 |
|
129 |
sub article_requests { |
130 |
my ( $self ) = @_; |
131 |
|
132 |
$self->{_article_requests} ||= Koha::ArticleRequests->search({ borrowernumber => $self->borrowernumber() }); |
133 |
|
134 |
return $self->{_article_requests}; |
135 |
} |
136 |
|
137 |
=head3 article_requests_current |
138 |
|
139 |
my @requests = $patron->article_requests_current |
140 |
|
141 |
Returns the article requests associated with this patron that are incomplete |
142 |
|
143 |
=cut |
144 |
|
145 |
sub article_requests_current { |
146 |
my ( $self ) = @_; |
147 |
|
148 |
$self->{_article_requests_current} ||= Koha::ArticleRequests->search( |
149 |
{ |
150 |
borrowernumber => $self->id(), |
151 |
-or => [ |
152 |
{ status => Koha::ArticleRequest::Status::Pending }, |
153 |
{ status => Koha::ArticleRequest::Status::Processing } |
154 |
] |
155 |
} |
156 |
); |
157 |
|
158 |
return $self->{_article_requests_current}; |
159 |
} |
160 |
|
161 |
=head3 article_requests_finished |
162 |
|
163 |
my @requests = $biblio->article_requests_finished |
164 |
|
165 |
Returns the article requests associated with this patron that are completed |
166 |
|
167 |
=cut |
168 |
|
169 |
sub article_requests_finished { |
170 |
my ( $self, $borrower ) = @_; |
171 |
|
172 |
$self->{_article_requests_finished} ||= Koha::ArticleRequests->search( |
173 |
{ |
174 |
borrowernumber => $self->id(), |
175 |
-or => [ |
176 |
{ status => Koha::ArticleRequest::Status::Completed }, |
177 |
{ status => Koha::ArticleRequest::Status::Canceled } |
178 |
] |
179 |
} |
180 |
); |
181 |
|
182 |
return $self->{_article_requests_finished}; |
183 |
} |
184 |
|
185 |
=head3 search_patrons_to_anonymise |
118 |
=head3 search_patrons_to_anonymise |
186 |
|
119 |
|
187 |
my $patrons = Koha::Patrons->search_patrons_to_anonymise( { before => $older_than_date, [ library => $library ] } ); |
120 |
my $patrons = Koha::Patrons->search_patrons_to_anonymise( { before => $older_than_date, [ library => $library ] } ); |
188 |
- |
|
|