Bug 15758: [QA Follow-up] Remove onlymine from Plugin/Branches.pm
[koha.git] / Koha / Template / Plugin / Branches.pm
1 package Koha::Template::Plugin::Branches;
2
3 # Copyright ByWater Solutions 2012
4 # Copyright BibLibre 2014
5
6 # This file is part of Koha.
7 #
8 # Koha is free software; you can redistribute it and/or modify it
9 # under the terms of the GNU General Public License as published by
10 # the Free Software Foundation; either version 3 of the License, or
11 # (at your option) any later version.
12 #
13 # Koha is distributed in the hope that it will be useful, but
14 # WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 # GNU General Public License for more details.
17 #
18 # You should have received a copy of the GNU General Public License
19 # along with Koha; if not, see <http://www.gnu.org/licenses>.
20
21 use Modern::Perl;
22
23 use Template::Plugin;
24 use base qw( Template::Plugin );
25
26 use C4::Koha;
27 use C4::Context;
28 use Koha::Libraries;
29
30 sub GetName {
31     my ( $self, $branchcode ) = @_;
32
33     my $query = "SELECT branchname FROM branches WHERE branchcode = ?";
34     my $sth   = C4::Context->dbh->prepare($query);
35     $sth->execute($branchcode);
36     my $b = $sth->fetchrow_hashref();
37     return $b ? $b->{'branchname'} : q{};
38 }
39
40 sub GetLoggedInBranchcode {
41     my ($self) = @_;
42
43     return C4::Context->userenv ?
44         C4::Context->userenv->{'branch'} :
45         '';
46 }
47
48 sub GetURL {
49     my ( $self, $branchcode ) = @_;
50
51     my $query = "SELECT branchurl FROM branches WHERE branchcode = ?";
52     my $sth   = C4::Context->dbh->prepare($query);
53     $sth->execute($branchcode);
54     my $b = $sth->fetchrow_hashref();
55     return $b->{branchurl};
56 }
57
58 sub all {
59     my ( $self, $params ) = @_;
60     my $selected = $params->{selected};
61     my $unfiltered = $params->{unfiltered} || 0;
62
63     my $libraries = $unfiltered
64       ? Koha::Libraries->search( {}, { order_by => ['branchname'] } )->unblessed
65       : Koha::Libraries->search_filtered( {}, { order_by => ['branchname'] } )->unblessed;
66
67     for my $l ( @$libraries ) {
68         if (       defined $selected and $l->{branchcode} eq $selected
69             or not defined $selected and C4::Context->userenv and $l->{branchcode} eq C4::Context->userenv->{branch}
70         ) {
71             $l->{selected} = 1;
72         }
73     }
74
75     return $libraries;
76 }
77
78 1;