1 package Koha::Template::Plugin::Branches;
3 # Copyright ByWater Solutions 2012
4 # Copyright BibLibre 2014
6 # This file is part of Koha.
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.
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.
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>.
24 use base qw( Template::Plugin );
31 my ( $self, $branchcode ) = @_;
33 my $l = Koha::Libraries->find($branchcode);
34 return $l ? $l->branchname : q{};
37 sub GetLoggedInBranchcode {
40 return C4::Context::mybranch;
43 sub GetLoggedInBranchname {
46 my $code = $self->GetLoggedInBranchcode;
47 return $code ? $self->GetName($code) : q{};
51 my ( $self, $branchcode ) = @_;
53 my $query = "SELECT branchurl FROM branches WHERE branchcode = ?";
54 my $sth = C4::Context->dbh->prepare($query);
55 $sth->execute($branchcode);
56 my $b = $sth->fetchrow_hashref();
57 return $b->{branchurl};
61 my ( $self, $params ) = @_;
62 my $selected = $params->{selected};
63 my $selecteds = $params->{selecteds};
64 my $unfiltered = $params->{unfiltered} || 0;
65 my $search_params = $params->{search_params} || {};
68 $search_params->{only_from_group} = $params->{only_from_group} || 0;
71 my $libraries = $unfiltered
72 ? Koha::Libraries->search( $search_params, { order_by => ['branchname'] } )->unblessed
73 : Koha::Libraries->search_filtered( $search_params, { order_by => ['branchname'] } )->unblessed;
75 if (defined $selecteds) {
76 # For a select multiple, must be a Koha::Libraries
77 my @selected_branchcodes = $selecteds ? $selecteds->get_column( ['branchcode'] ) : ();
81 if grep { $_ eq $l->{branchcode} } @selected_branchcodes;
86 for my $l ( @$libraries ) {
87 if ( defined $selected and $l->{branchcode} eq $selected
88 or not defined $selected and C4::Context->userenv and $l->{branchcode} eq ( C4::Context->userenv->{branch} // q{} )
98 sub InIndependentBranchesMode {
100 return ( not C4::Context->preference("IndependentBranches") or C4::Context::IsSuperLibrarian );
103 sub pickup_locations {
104 my ( $self, $params ) = @_;
105 my $search_params = $params->{search_params} || {};
106 my $selected = $params->{selected};
109 if(defined $search_params->{item} || defined $search_params->{biblio}) {
110 my $item = $search_params->{'item'};
111 my $biblio = $search_params->{'biblio'};
112 my $patron = $search_params->{'patron'};
114 unless (! defined $patron || ref($patron) eq 'Koha::Patron') {
115 $patron = Koha::Patrons->find($patron);
119 $item = Koha::Items->find($item)
120 unless ref($item) eq 'Koha::Item';
121 @libraries = @{ $item->pickup_locations( { patron => $patron } ) }
125 $biblio = Koha::Biblios->find($biblio)
126 unless ref($biblio) eq 'Koha::Biblio';
127 @libraries = @{ $biblio->pickup_locations( { patron => $patron } ) }
132 @libraries = Koha::Libraries->search( { pickup_location => 1 },
133 { order_by => ['branchname'] } )->as_list
136 @libraries = map { $_->unblessed } @libraries;
138 for my $l (@libraries) {
139 if ( defined $selected and $l->{branchcode} eq $selected
140 or not defined $selected
141 and C4::Context->userenv
142 and $l->{branchcode} eq C4::Context->userenv->{branch} )