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.
28 use base
qw(Koha::Object);
32 Koha::Library - Koha Library Object class
40 TODO: Ask the author to add a proper description
44 =head3 get_effective_marcorgcode
46 my $marcorgcode = Koha::Libraries->find( $library_id )->get_effective_marcorgcode();
48 Returns the effective MARC organization code of the library. It falls back to the value
49 from the I<MARCOrgCode> syspref if undefined for the library.
53 sub get_effective_marcorgcode
{
56 return $self->marcorgcode || C4
::Context
->preference("MARCOrgCode");
61 Return the Library groups of this library
67 my $rs = $self->_result->library_groups;
68 return Koha
::Library
::Groups
->_new_from_dbic( $rs );
71 =head2 Internal methods