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

(-)a/Koha/Checkout.pm (+76 lines)
Line 0 Link Here
1
package Koha::Checkout;
2
3
# Copyright ByWater Solutions 2015
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 FOR
14
# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
15
#
16
# You should have received a copy of the GNU General Public License along
17
# with Koha; if not, write to the Free Software Foundation, Inc.,
18
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19
20
use Modern::Perl;
21
22
use Carp;
23
24
use Koha::Database;
25
use Koha::Items;
26
use Koha::Deleted::Items;
27
28
use base qw(Koha::Object);
29
30
=head1 NAME
31
32
Koha::Checkout - Koha Checkout Object class
33
34
=head1 API
35
36
=head2 Class Methods
37
38
=cut
39
40
=head3 item
41
42
my $item = $checkout->item({ deleted => 1 });
43
44
Returns the related Koha::Item for this checkout.
45
46
If the parameter delete is passed and true, and the itemnumber
47
is not found for current items, this method will look for a matching
48
deleted item.
49
50
=cut
51
52
sub item {
53
    my ( $self, $params ) = @_;
54
55
    my $item = Koha::Items->search( { itemnumber => $self->itemnumber() } )->next();
56
57
    $item ||= Koha::Deleted::Items->search( { itemnumber => $self->itemnumber() } )->next() if ( $params->{deleted} );
58
59
    return $item || undef;
60
}
61
62
=head3 type
63
64
=cut
65
66
sub type {
67
    return 'Issue';
68
}
69
70
=head1 AUTHOR
71
72
Kyle M Hall <kyle@bywatersolutions.com>
73
74
=cut
75
76
1;
(-)a/Koha/Checkouts.pm (+58 lines)
Line 0 Link Here
1
package Koha::Checkouts;
2
3
# Copyright ByWater Solutions 2015
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 FOR
14
# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
15
#
16
# You should have received a copy of the GNU General Public License along
17
# with Koha; if not, write to the Free Software Foundation, Inc.,
18
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19
20
use Modern::Perl;
21
22
use Carp;
23
24
use Koha::Database;
25
26
use Koha::Checkout;
27
28
use base qw(Koha::Objects);
29
30
=head1 NAME
31
32
Koha::Checkouts - Koha Checkouts Object class
33
34
=head1 API
35
36
=head2 Class Methods
37
38
=cut
39
40
=head3 type
41
42
=cut
43
44
sub type {
45
    return 'Issue';
46
}
47
48
sub object_class {
49
    return 'Koha::Checkout';
50
}
51
52
=head1 AUTHOR
53
54
Kyle M Hall <kyle@bywatersolutions.com>
55
56
=cut
57
58
1;
(-)a/Koha/Old/Checkout.pm (+57 lines)
Line 0 Link Here
1
package Koha::Old::Checkout;
2
3
# Copyright ByWater Solutions 2015
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 FOR
14
# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
15
#
16
# You should have received a copy of the GNU General Public License along
17
# with Koha; if not, write to the Free Software Foundation, Inc.,
18
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19
20
use Modern::Perl;
21
22
use Carp;
23
24
use Koha::Database;
25
26
use base qw(Koha::Checkout);
27
28
=head1 NAME
29
30
Koha::Old::Checkout - Koha Old Checkout Object class
31
32
This class is an extension of Koha::Checkout.
33
34
New methods should only be added to Koha::Checkout unless they are specifically
35
and only for dealing with old checkouts.
36
37
=head1 API
38
39
=head2 Class Methods
40
41
=cut
42
43
=head3 type
44
45
=cut
46
47
sub type {
48
    return 'OldIssue';
49
}
50
51
=head1 AUTHOR
52
53
Kyle M Hall <kyle@bywatersolutions.com>
54
55
=cut
56
57
1;
(-)a/Koha/Old/Checkouts.pm (-1 / +63 lines)
Line 0 Link Here
0
- 
1
package Koha::Old::Checkouts;
2
3
# Copyright ByWater Solutions 2015
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 FOR
14
# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
15
#
16
# You should have received a copy of the GNU General Public License along
17
# with Koha; if not, write to the Free Software Foundation, Inc.,
18
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19
20
use Modern::Perl;
21
22
use Carp;
23
24
use Koha::Database;
25
26
use Koha::Old::Checkout;
27
28
use base qw(Koha::Checkouts);
29
30
=head1 NAME
31
32
Koha::Old::Checkouts - Koha Old Checkouts Object class
33
34
This class is an extension of Koha::Checkouts.
35
36
New methods should only be added to Koha::Checkouts unless they are specifically
37
and only for dealing with old checkouts.
38
39
=head1 API
40
41
=head2 Class Methods
42
43
=cut
44
45
=head3 type
46
47
=cut
48
49
sub type {
50
    return 'OldIssue';
51
}
52
53
sub object_class {
54
    return 'Koha::Old::Checkout';
55
}
56
57
=head1 AUTHOR
58
59
Kyle M Hall <kyle@bywatersolutions.com>
60
61
=cut
62
63
1;

Return to bug 8483