3 # Copyright 2015 Koha Development team
5 # This file is part of Koha.
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
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.
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.
27 use Koha::StockRotationStages;
29 use base qw(Koha::Object);
33 Koha::Library - Koha Library Object class
41 TODO: Ask the author to add a proper description
46 my ( $self, $params ) = @_;
47 # TODO This should return Koha::LibraryCategories
48 return $self->{_result}->categorycodes( $params );
51 =head3 update_categories
53 TODO: Ask the author to add a proper description
57 sub update_categories {
58 my ( $self, $categories ) = @_;
59 $self->_result->delete_related( 'branchrelations' );
60 $self->add_to_categories( $categories );
63 =head3 add_to_categories
65 TODO: Ask the author to add a proper description
69 sub add_to_categories {
70 my ( $self, $categories ) = @_;
71 for my $category ( @$categories ) {
72 $self->_result->add_to_categorycodes( $category->_result );
76 =head3 stockrotationstages
78 my $stages = Koha::Library->stockrotationstages;
80 Returns the stockrotation stages associated with this Library.
84 sub stockrotationstages {
86 my $rs = $self->_result->stockrotationstages;
87 return Koha::StockRotationStages->_new_from_dbic( $rs );
90 =head3 get_effective_marcorgcode
92 my $marcorgcode = Koha::Libraries->find( $library_id )->get_effective_marcorgcode();
94 Returns the effective MARC organization code of the library. It falls back to the value
95 from the I<MARCOrgCode> syspref if undefined for the library.
99 sub get_effective_marcorgcode {
102 return $self->marcorgcode || C4::Context->preference("MARCOrgCode");
105 =head3 library_groups
107 Return the Library groups of this library
113 my $rs = $self->_result->library_groups;
114 return Koha::Library::Groups->_new_from_dbic( $rs );
117 =head2 Internal methods