@@ -, +, @@ --- Koha/Template/Plugin/Branches.pm | 30 ++++++++++ Koha/Template/Plugin/Categories.pm | 63 ++++++++++++++++++++ .../prog/en/includes/patron-search.inc | 54 ++++++++++------- .../prog/en/modules/members/member.tt | 12 ++-- members/member.pl | 33 ---------- 5 files changed, 133 insertions(+), 59 deletions(-) create mode 100644 Koha/Template/Plugin/Categories.pm --- a/Koha/Template/Plugin/Branches.pm +++ a/Koha/Template/Plugin/Branches.pm @@ -1,6 +1,7 @@ package Koha::Template::Plugin::Branches; # Copyright ByWater Solutions 2012 +# Copyright BibLibre 2014 # This file is part of Koha. # @@ -53,4 +54,33 @@ sub GetURL { return $b->{branchurl}; } +sub all { + my ( $self, $params ) = @_; + my $selected = $params->{selected}; + my $dbh = C4::Context->dbh; + my @params; + my $query = q| + SELECT branchcode, branchname + FROM branches + |; + if ( C4::Branch::onlymine + and C4::Context->userenv + and C4::Context->userenv->{branch} ) + { + $query .= q| WHERE branchcode = ? |; + push @params, C4::Context->userenv->{branch}; + } + $query .= q| ORDER BY branchname|; + my $branches = $dbh->selectall_arrayref( $query, { Slice => {} }, @params ); + + if ( $selected ) { + for my $branch ( @$branches ) { + if ( $branch->{branchcode} eq $selected ) { + $branch->{selected} = 1; + } + } + } + return $branches; +} + 1; --- a/Koha/Template/Plugin/Categories.pm +++ a/Koha/Template/Plugin/Categories.pm @@ -0,0 +1,63 @@ +package Koha::Template::Plugin::Categories; + +# Copyright 2013-2014 BibLibre +# +# Koha is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# Koha is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with Koha; if not, see . + +use Modern::Perl; + +use Template::Plugin; +use base qw( Template::Plugin ); + +use C4::Category; + +sub all { + my ( $self, $params ) = @_; + my $selected = $params->{selected}; + + my @categories = C4::Category->all; + if ( $selected ) { + for my $category ( @categories ) { + if ( $category->{categorycode} eq $selected ) { + $category->{selected} = 1; + } + } + } + return @categories; +} + +1; + +=head1 NAME + +Koha::Template::Plugin::Categories - TT Plugin for categories + +=head1 SYNOPSIS + +[% USE Categories %] + +[% Categories.all() %] + +=head1 ROUTINES + +=head2 all + +In a template, you can get the all categories with +the following TT code: [% Categories.all() %] + +=head1 AUTHOR + +Jonathan Druart + +=cut --- a/koha-tmpl/intranet-tmpl/prog/en/includes/patron-search.inc +++ a/koha-tmpl/intranet-tmpl/prog/en/includes/patron-search.inc @@ -1,4 +1,6 @@ [% USE Koha %] +[% USE Branches %] +[% USE Categories %]

[% LibraryName %]

--- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/member.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/members/member.tt @@ -1,5 +1,7 @@ [% USE Koha %] [% USE ColumnsSettings %] +[% USE Branches %] +[% USE Categories %] [% INCLUDE 'doc-head-open.inc' %] Koha › Patrons [% IF ( searching ) %]› Search results[% END %] [% INCLUDE 'doc-head-close.inc' %] @@ -452,24 +454,26 @@ function filterByFirstLetterSurname(letter) {
  • + [% SET categories = Categories.all( selected => categorycode ) %]
  • + [% SET branches = Branches.all( selected => branchcode ) %]