From 4c186a3e25efb174d54b5ca6e5d6599979bcd568 Mon Sep 17 00:00:00 2001 From: Fridolin Somers Date: Mon, 2 Mar 2020 17:35:53 +0300 Subject: [PATCH] Bug 24776: Remove file Koha/Template/Plugin/Borrowers.pm Signed-off-by: Owen Leonard Signed-off-by: Jonathan Druart Signed-off-by: Martin Renvoize --- Koha/Template/Plugin/Borrowers.pm | 60 ------------------------------- 1 file changed, 60 deletions(-) delete mode 100644 Koha/Template/Plugin/Borrowers.pm diff --git a/Koha/Template/Plugin/Borrowers.pm b/Koha/Template/Plugin/Borrowers.pm deleted file mode 100644 index 1c48487e92..0000000000 --- a/Koha/Template/Plugin/Borrowers.pm +++ /dev/null @@ -1,60 +0,0 @@ -package Koha::Template::Plugin::Borrowers; - -# Copyright ByWater Solutions 2013 -# Copyright Equinox Software, Inc. 2014 - -# This file is part of Koha. -# -# 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 base qw( Template::Plugin ); - -use Koha::Patron::Debarments qw(); -use Koha::Patrons; - -=pod - -This plugin is a home for various patron related Template Toolkit functions -to help streamline Koha and to move logic from the Perl code into the -Templates when it makes sense to do so. - -To use, first, include the line '[% USE Borrowers %]' at the top -of the template to enable the plugin. - -For example: [% IF Borrowers.IsDebarred( borrower ) %] -removes the necessity of setting a template variable in Perl code to -find out if a patron is restricted even if that variable is not evaluated -in any way in the script. - -=cut - -sub IsDebarred { - my ( $self, $borrower ) = @_; - - return unless $borrower; - - return Koha::Patrons->find( $borrower->{borrowernumber} )->is_debarred; -} - -sub HasOverdues { - my ( $self, $borrowernumber ) = @_; - - return unless $borrowernumber; - - return Koha::Patrons->find( $borrowernumber )->has_overdues; -} - -1; -- 2.39.5