#
# This file is part of Koha.
#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 3 of the License, or (at your option) any later
-# version.
+# Koha is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# Koha is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
#
-# You should have received a copy of the GNU General Public License along
-# with Koha; if not, write to the Free Software Foundation, Inc.,
-# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+# You should have received a copy of the GNU General Public License
+# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use Carp;
use Koha::Database;
-use Koha::ArticleRequest;
use Koha::ArticleRequest::Status;
+use Koha::ArticleRequest;
use base qw(Koha::Objects);
=head1 API
-=head2 Class Methods
+=head2 Class methods
=cut
my $userenv = C4::Context->userenv;
my @restricted_branchcodes;
- if ( $userenv ) {
+ if ( $userenv and $userenv->{number} ) {
my $logged_in_user = Koha::Patrons->find( $userenv->{number} );
@restricted_branchcodes = $logged_in_user->libraries_where_can_see_patrons;
}
return $self->search( $params, $attributes );
}
+=head3 filter_by_current
+
+ my $current_article_requests = $article_requests->filter_by_current;
+
+Returns a new resultset, filtering out finished article requests.
+
+=cut
+
+sub filter_by_current {
+ my ($self) = @_;
+
+ return $self->search(
+ {
+ status => [
+ Koha::ArticleRequest::Status::Requested,
+ Koha::ArticleRequest::Status::Pending,
+ Koha::ArticleRequest::Status::Processing,
+ ]
+ }
+ );
+}
+
+=head3 filter_by_finished
+
+ my $finished_article_requests = $article_requests->filter_by_finished;
+
+Returns a new resultset, filtering out current article requests.
+
+=cut
+
+sub filter_by_finished {
+ my ($self) = @_;
+
+ return $self->search(
+ {
+ status => [
+ Koha::ArticleRequest::Status::Completed,
+ Koha::ArticleRequest::Status::Canceled,
+ ]
+ }
+ );
+}
+
+=head3 requested
+
+=cut
+
+sub requested {
+ my ( $self, $branchcode ) = @_;
+ my $params = { status => Koha::ArticleRequest::Status::Requested };
+ $params->{'me.branchcode'} = $branchcode if $branchcode;
+ return Koha::ArticleRequests->search_limited($params);
+}
+
=head3 pending
=cut