Bug 20599: Add the Koha::Subscription->vendor method
[srvgit] / Koha / Subscription.pm
1 package Koha::Subscription;
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::Biblios;
26 use Koha::Acquisition::Booksellers;
27
28 use base qw(Koha::Object);
29
30 =head1 NAME
31
32 Koha::Subscription - Koha Subscription Object class
33
34 =head1 API
35
36 =head2 Class Methods
37
38 =cut
39
40 =head3 biblio
41
42 Returns the biblio linked to this subscription as a Koha::Biblio object
43
44 =cut
45
46 sub biblio {
47     my ($self) = @_;
48
49     return scalar Koha::Biblios->find($self->biblionumber);
50 }
51
52 =head3 vendor
53
54 Returns the vendor/supplier linked to this subscription as a Koha::Acquisition::Bookseller object
55
56 =cut
57
58 sub vendor {
59     my ($self) = @_;
60     return scalar Koha::Acquisition::Booksellers->find($self->aqbooksellerid);
61 }
62
63 =head3 type
64
65 =cut
66
67 sub _type {
68     return 'Subscription';
69 }
70
71 =head1 AUTHOR
72
73 Kyle M Hall <kyle@bywatersolutions.com>
74
75 =cut
76
77 1;