1 package Koha::Library::Group;
3 # Copyright ByWater Solutions 2016
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
24 use Koha::DateUtils qw( dt_from_string );
27 use base qw(Koha::Object);
31 Koha::Library::Group - Koha Library::Group object class
39 =head3 my @parent = $self->parent()
45 my $rs = $self->_result->parent;
47 return Koha::Library::Group->_new_from_dbic($rs);
50 =head3 my @children = $self->children()
58 Koha::Library::Groups->search( { parent_id => $self->id }, { order_by => [ 'title', 'branchcode' ] } );
60 return wantarray ? $children->as_list : $children;
65 my $has_child = $group->has_child( $branchcode );
67 Return true if the given branchcode library is a child of this group.
72 my ( $self, $branchcode ) = @_;
73 return unless $branchcode; # Does not support group of libraries.
74 return ( grep { $_ and $_ eq $branchcode }
75 $self->children->get_column('branchcode') ) ? 1 : 0;
80 my $library = $group->library();
82 Returns the library for this group if one exists
88 my $rs = $self->_result->branchcode;
90 return Koha::Library->_new_from_dbic($rs);
95 my $libraries = $group->libraries( { [invert => 1] } );
97 Returns the libraries set as direct children of this group.
99 If invert param is true, the returned list will be libraries
100 that are *not* direct children of this group.
105 my ($self, $params) = @_;
106 my $invert = $params->{invert};
108 my $in_or_not = $invert ? '-not_in' : '-in';
110 my @branchcodes = Koha::Library::Groups->search(
112 parent_id => $self->id,
113 branchcode => { '!=' => undef },
115 { order_by => 'branchcode' }
116 )->get_column('branchcode');
118 return Koha::Libraries->search(
120 branchcode => { $in_or_not => \@branchcodes }
123 order_by => 'branchname'
130 my @libraries = $group->all_libraries( { [invert => 1] } );
132 Returns the libraries set as children of this group or any subgroup.
137 my ( $self, $params ) = @_;
141 push (@libraries, $self->libraries->as_list);
142 my @children = $self->children->search({ branchcode => undef })->as_list;
143 foreach my $c (@children) {
144 push( @libraries, $c->all_libraries );
149 grep { !$seen{ $_->id }++ } @libraries;
154 =head3 libraries_not_direct_children
156 my $libraries = $group->libraries_not_direct_children();
158 Returns the libraries *not* set as direct children of this group
162 sub libraries_not_direct_children {
165 return $self->libraries( { invert => 1 } );
175 $self->created_on( dt_from_string() ) unless $self->in_storage();
177 return $self->SUPER::store(@_);
180 =head2 Internal methods
187 return 'LibraryGroup';
192 Kyle M Hall <kyle@bywatersolutions.com>