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

(-)a/Koha/Illcomment.pm (+8 lines)
Lines 30-35 Koha::Illcomment - Koha Illcomment Object class Link Here
30
30
31
=head3 patron
31
=head3 patron
32
32
33
    my $patron = Koha::Illcomment->patron;
34
35
Return the patron object associated with this comment
36
33
=cut
37
=cut
34
38
35
sub patron {
39
sub patron {
Lines 43-48 sub patron { Link Here
43
47
44
=head3 _type
48
=head3 _type
45
49
50
    my $type = Koha::IllComment->_type;
51
52
Return this object's type
53
46
=cut
54
=cut
47
55
48
sub _type {
56
sub _type {
(-)a/Koha/Illcomments.pm (-2 / +45 lines)
Lines 1-18 Link Here
1
package Koha::Illcomments;
1
package Koha::Illcomments;
2
2
3
# TODO Add POD
3
# Copyright Magnus Enger Libriotech 2017
4
#
5
# This file is part of Koha.
6
#
7
# Koha is free software; you can redistribute it and/or modify it under the
8
# terms of the GNU General Public License as published by the Free Software
9
# Foundation; either version 3 of the License, or (at your option) any later
10
# version.
11
#
12
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
14
# FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
15
# details.
16
#
17
# You should have received a copy of the GNU General Public License along with
18
# Koha; if not, write to the Free Software Foundation, Inc., 51 Franklin
19
# Street, Fifth Floor, Boston, MA 02110-1301 USA.
4
20
5
use Modern::Perl;
21
use Modern::Perl;
6
use Koha::Database;
22
use Koha::Database;
7
use Koha::Illcomment;
23
use Koha::Illcomment;
8
use base qw(Koha::Objects);
24
use base qw(Koha::Objects);
9
25
26
=head1 NAME
27
28
Koha::Illcomments - Koha Illcomments Object class
29
30
=head2 Internal methods
31
32
=head3 _type
33
34
    my $type = Koha::IllComments->_type;
35
36
Return this object's type
37
38
=cut
39
10
sub _type {
40
sub _type {
11
    return 'Illcomments';
41
    return 'Illcomments';
12
}
42
}
13
43
44
=head3 object_class
45
46
    my $class = Koha::IllComments->object_class;
47
48
Return this object's class name
49
50
=cut
51
14
sub object_class {
52
sub object_class {
15
    return 'Koha::Illcomment';
53
    return 'Koha::Illcomment';
16
}
54
}
17
55
56
=head1 AUTHOR
57
58
Magnus Enger <magnus@libriotech.no>
59
60
=cut
61
18
1;
62
1;
19
- 

Return to bug 18591