View | Details | Raw Unified | Return to bug 24149
Collapse All | Expand All

(-)a/Koha/Statistic.pm (-1 / +14 lines)
Lines 20-25 use Modern::Perl; Link Here
20
use Carp;
20
use Carp;
21
21
22
use Koha::Database;
22
use Koha::Database;
23
use Koha::Items;
23
24
24
use base qw(Koha::Object);
25
use base qw(Koha::Object);
25
26
Lines 31-36 Koha::Statistic - Koha Statistic Object class Link Here
31
32
32
=head2 Class methods
33
=head2 Class methods
33
34
35
=head3 item
36
37
my $item = $statistic->item;
38
39
Return the item associated to this statistic.
40
41
=cut
42
43
sub item {
44
    my ( $self ) = @_;
45
    return Koha::Items->find( $self->itemnumber );
46
}
47
34
=head2 Internal methods
48
=head2 Internal methods
35
49
36
=head3 _type
50
=head3 _type
37
- 

Return to bug 24149