1 package Koha::Patron::Categories;
3 # This file is part of Koha.
5 # Koha is free software; you can redistribute it and/or modify it under the
6 # terms of the GNU General Public License as published by the Free Software
7 # Foundation; either version 3 of the License, or (at your option) any later
10 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
11 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
14 # You should have received a copy of the GNU General Public License along
15 # with Koha; if not, write to the Free Software Foundation, Inc.,
16 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
22 use C4::Context; # Sigh...
26 use Koha::Patron::Category;
28 use base qw(Koha::Objects);
32 Koha::Patron::Categories - Koha Patron Category Object set class
42 my $branch_limit = C4::Context->userenv ? C4::Context->userenv->{"branch"} : "";
43 return $self->search({}, {order_by => ['description']}) unless $branch_limit;
44 return $self->search({
45 'categories_branches.branchcode' => [$branch_limit, undef]},
47 join => 'categories_branches',
48 order_by => ['description'],
62 return 'Koha::Patron::Category';