From e737f46c394f20091b2e7da20cc84e441561af06 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
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 <josef.moravec@gmail.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
---
 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.39.5