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

(-)a/Koha/Acquisition/Basket.pm (+44 lines)
Lines 1-19 Link Here
1
package Koha::Acquisition::Basket;
1
package Koha::Acquisition::Basket;
2
2
3
# Copyright 2017 Aleisha Amohia <aleisha@catalyst.net.nz>
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
3
use Modern::Perl;
20
use Modern::Perl;
4
21
5
use Koha::Database;
22
use Koha::Database;
6
23
7
use base qw( Koha::Object );
24
use base qw( Koha::Object );
8
25
26
=head1 NAME
27
28
Koha::Acquisition::Basket - Koha Basket Object class
29
30
=head1 API
31
32
=head2 Class Methods
33
34
=cut
35
36
=head3 bookseller
37
38
Returns the vendor
39
40
=cut
41
9
sub bookseller {
42
sub bookseller {
10
    my ($self) = @_;
43
    my ($self) = @_;
11
    my $bookseller_rs = $self->_result->booksellerid;
44
    my $bookseller_rs = $self->_result->booksellerid;
12
    return Koha::Acquisition::Bookseller->_new_from_dbic( $bookseller_rs );
45
    return Koha::Acquisition::Bookseller->_new_from_dbic( $bookseller_rs );
13
}
46
}
14
47
48
=head3 type
49
50
=cut
51
15
sub _type {
52
sub _type {
16
    return 'Aqbasket';
53
    return 'Aqbasket';
17
}
54
}
18
55
56
=head1 AUTHOR
57
58
Aleisha Amohia <aleisha@catalyst.net.nz>
59
Catalyst IT
60
61
=cut
62
19
1;
63
1;
(-)a/Koha/Acquisition/Baskets.pm (-1 / +42 lines)
Lines 1-5 Link Here
1
package Koha::Acquisition::Baskets;
1
package Koha::Acquisition::Baskets;
2
2
3
# Copyright 2017 Aleisha Amohia <aleisha@catalyst.net.nz>
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
3
use Modern::Perl;
20
use Modern::Perl;
4
21
5
use Koha::Database;
22
use Koha::Database;
Lines 7-18 use Koha::Acquisition::Basket; Link Here
7
24
8
use base qw( Koha::Objects );
25
use base qw( Koha::Objects );
9
26
27
=head1 NAME
28
29
Koha::Acquisition::Baskets - Koha Baskets object set class
30
31
=head1 API
32
33
=head2 Class Methods
34
35
=cut
36
37
=head3 type
38
39
=cut
40
10
sub _type {
41
sub _type {
11
    return 'Aqbasket';
42
    return 'Aqbasket';
12
}
43
}
13
44
45
=head3 object_class
46
47
=cut
48
14
sub object_class {
49
sub object_class {
15
    return 'Koha::Acquisition::Basket';
50
    return 'Koha::Acquisition::Basket';
16
}
51
}
17
52
53
=head1 AUTHOR
54
55
Aleisha Amohia <aleisha@catalyst.net.nz>
56
Catalyst IT
57
58
=cut
59
18
1;
60
1;
19
- 

Return to bug 18584