@@ -, +, @@ like it is for holds --- Koha/Template/Plugin/Biblio.pm | 20 +++++ .../prog/en/includes/biblio-view-menu.inc | 86 +++++++++++++--------- 2 files changed, 70 insertions(+), 36 deletions(-) --- a/Koha/Template/Plugin/Biblio.pm +++ a/Koha/Template/Plugin/Biblio.pm @@ -25,6 +25,8 @@ use base qw( Template::Plugin ); use Koha::Holds; use Koha::Biblios; use Koha::Borrowers; +use Koha::ArticleRequests; +use Koha::ArticleRequest::Status; sub HoldsCount { my ( $self, $biblionumber ) = @_; @@ -34,6 +36,24 @@ sub HoldsCount { return $holds->count(); } +sub ArticleRequestsActiveCount { + my ( $self, $biblionumber ) = @_; + + my $ar = Koha::ArticleRequests->search( + { + biblionumber => $biblionumber, + status => [ + -or => [ + status => Koha::ArticleRequest::Status::Pending, + status => Koha::ArticleRequest::Status::Processing + ] + ] + } + ); + + return $ar->count(); +} + sub CanArticleRequest { my ( $self, $biblionumber, $borrowernumber ) = @_; --- a/koha-tmpl/intranet-tmpl/prog/en/includes/biblio-view-menu.inc +++ a/koha-tmpl/intranet-tmpl/prog/en/includes/biblio-view-menu.inc @@ -1,42 +1,56 @@ [% USE Koha %] [% USE Biblio %] [% SET biblio_object_id = object || biblionumber %] + --