Bug 10363: [QA Followup]
[koha.git] / Koha / AuthorisedValues.pm
1 package Koha::AuthorisedValues;
2
3 # Copyright ByWater Solutions 2014
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::AuthorisedValue;
27
28 use base qw(Koha::Objects);
29
30 =head1 NAME
31
32 Koha::Borrower - Koha Borrower Object class
33
34 =head1 API
35
36 =head2 Class Methods
37
38 =cut
39
40 =head3 Koha::AuthorisedValues->search();
41
42 my @objects = Koha::AuthorisedValues->search($params);
43
44 =cut
45
46 sub search {
47     my ( $self, $params ) = @_;
48
49     my $branchcode = $params->{branchcode};
50     delete( $params->{branchcode} );
51
52     my $or =
53       $branchcode
54       ? {
55         '-or' => [
56             'authorised_values_branches.branchcode' => undef,
57             'authorised_values_branches.branchcode' => $branchcode,
58         ]
59       }
60       : {};
61     my $join = $branchcode ? { join => 'authorised_values_branches' } : {};
62     my $rs = $self->_resultset()
63       ->search( { %$params, %$or, }, $join );
64
65     my $class = ref($self);
66     return wantarray ? $self->_wrap( $rs->all() ) : $class->_new_from_dbic($rs);
67 }
68
69 sub categories {
70     my ( $self ) = @_;
71     my $rs = $self->_resultset->search(
72         undef,
73         {
74             select => ['category'],
75             distinct => 1,
76             order_by => 'category',
77         },
78     );
79     return map $_->get_column('category'), $rs->all;
80 }
81
82 =head3 type
83
84 =cut
85
86 sub type {
87     return 'AuthorisedValue';
88 }
89
90 sub object_class {
91     return 'Koha::AuthorisedValue';
92 }
93
94 =head1 AUTHOR
95
96 Kyle M Hall <kyle@bywatersolutions.com>
97
98 =cut
99
100 1;