Koha/Template/Plugin/KohaSpan.pm

   1 package Koha::Template::Plugin::KohaSpan;
   2
   3 # Copyright ByWater Solutions 2016
   4 # Author: Kyle M Hall <kyle@bywatersolutions.com>
   5
   6 # This file is part of Koha.
   7 #
   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.
  12 #
  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.
  17 #
  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>.
  20
  21 use Modern::Perl;
  22
  23 use Template::Plugin::Filter;
  24 use base qw( Template::Plugin::Filter );
  25
  26 our $DYNAMIC = 1;
  27
  28 sub filter {
  29     my ( $self, $text, $args, $config ) = @_;
  30
  31     $config->{with_hours} //= 0;
  32     my $id    = $config->{id};
  33     my $class = $config->{class};
  34
  35     my $span = "<span";
  36     $span .= " id='$id'"       if $id;
  37     $span .= " class='$class'" if $class;
  38     $span .= ">$text</span>";
  39
  40     return $span;
  41 }
  42
  43 1;