From 0995038516ce11d85604b9392683976b2c7ce729 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Mon, 6 May 2013 13:59:54 -0400 Subject: [PATCH] Bug 7441 - search results showing wrong branch? - Followup - Delete Koha TT Plugin Deletes the Koha TT Plugin from this patch series, to move it to it's own bug. --- Koha/Template/Plugin/Koha.pm | 49 ------------------------------------------ 1 files changed, 0 insertions(+), 49 deletions(-) delete mode 100644 Koha/Template/Plugin/Koha.pm diff --git a/Koha/Template/Plugin/Koha.pm b/Koha/Template/Plugin/Koha.pm deleted file mode 100644 index a992961..0000000 --- a/Koha/Template/Plugin/Koha.pm +++ /dev/null @@ -1,49 +0,0 @@ -package Koha::Template::Plugin::Koha; - -# Copyright ByWater Solutions 2013 - -# 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 2 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, write to the Free Software Foundation, Inc., -# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. - -use Modern::Perl; - -use Template::Plugin; -use base qw( Template::Plugin ); - -use C4::Koha; -use C4::Context; - -=pod - -This plugin contains various Koha replated 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 Koha %]' at the top -of the template to enable the plugin. - -For example: [% IF Koha.Preference( 'MyPreference ) == 'SettingA' %] -removes the necessity of setting a template variable in Perl code for -each and every system preference, even if no evaluation of the setting -is necessary. - -=cut - -sub Preference { - my ( $self, $pref ) = @_; - return C4::Context->preference( $pref ); -} - -1; -- 1.7.2.5