Bug 20744: Replace staff client header Koha logo gif with transparent png
[koha.git] / Koha / Library.pm
blob9e6d616036c9948692bf748071a8294ee73ce002
1 package Koha::Library;
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
10 # version.
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.
20 use Modern::Perl;
22 use Carp;
24 use C4::Context;
26 use Koha::Database;
28 use base qw(Koha::Object);
30 =head1 NAME
32 Koha::Library - Koha Library Object class
34 =head1 API
36 =head2 Class methods
38 =head3 get_categories
40 TODO: Ask the author to add a proper description
42 =cut
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.
51 =cut
53 sub get_effective_marcorgcode {
54 my ( $self ) = @_;
56 return $self->marcorgcode || C4::Context->preference("MARCOrgCode");
59 =head3 library_groups
61 Return the Library groups of this library
63 =cut
65 sub library_groups {
66 my ( $self ) = @_;
67 my $rs = $self->_result->library_groups;
68 return Koha::Library::Groups->_new_from_dbic( $rs );
71 =head2 Internal methods
73 =head3 _type
75 =cut
77 sub _type {
78 return 'Branch';