@@ -, +, @@ inside tt directives - Apply patch - Add [% USE HtmlTags %] to the top of a tt file - Add something like [% My nice title | $HtmlTags tag="h1" %] to the tt file - Verify that in output 'My nice title' has h1 tags - Change template directive to something like [% My nice title | $HtmlTags tag="h1" attributes='title="This is a nice title attribute"' %] - Verify that title attribute displays in output (source code or tooltip on 'My nice title') - Update for Wiki coding guidelines --- Koha/Template/Plugin/HtmlTags.pm | 40 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 40 insertions(+) create mode 100644 Koha/Template/Plugin/HtmlTags.pm --- a/Koha/Template/Plugin/HtmlTags.pm +++ a/Koha/Template/Plugin/HtmlTags.pm @@ -0,0 +1,40 @@ +package Koha::Template::Plugin::HtmlTags; + +# Copyright Marc VĂ©ron / marc veron ag, Switzerland + +# 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 Template::Plugin::Filter; +use base qw( Template::Plugin::Filter ); + +our $DYNAMIC = 1; + +sub filter { + my ( $self, $text, $args, $config ) = @_; + return "" unless $text; + return $text unless $config->{tag}; + $config->{attributes} //= ''; + + if ( $config->{attributes} ) { + return '<' . $config->{tag} . ' ' . $config->{attributes} . '>' . $text . '{tag} . '>'; + } else { + return '<' . $config->{tag} . '>' . $text . '{tag} . '>'; + } +} + +1; --