From 10d3acd3bac61c99b6b301872430ed2069c9c997 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 26 Nov 2019 19:44:47 +0100 Subject: [PATCH] Bug 24149: Add Koha::Statistic->item Sponsored-by: Association KohaLa - https://koha-fr.org/ Signed-off-by: Josef Moravec --- Koha/Statistic.pm | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/Koha/Statistic.pm b/Koha/Statistic.pm index 90f288e683..41d58d00b5 100644 --- a/Koha/Statistic.pm +++ b/Koha/Statistic.pm @@ -20,6 +20,7 @@ use Modern::Perl; use Carp; use Koha::Database; +use Koha::Items; use base qw(Koha::Object); @@ -31,6 +32,19 @@ Koha::Statistic - Koha Statistic Object class =head2 Class methods +=head3 item + +my $item = $statistic->item; + +Return the item associated to this statistic. + +=cut + +sub item { + my ( $self ) = @_; + return Koha::Items->find( $self->itemnumber ); +} + =head2 Internal methods =head3 _type -- 2.11.0