2 package Sesse::GettextizeTemplates;
6 use Template::Directive;
8 our @ISA = qw(Template::Directive);
14 return "" if ($text eq "");
15 return Locale::gettext::gettext($text);
19 my ($self, $text) = @_;
21 $text =~ s/(<(h[1-6]|p|td|th|title|input|span|li|_)[^>]*>)(.*?)(<\/\2>)/$1.mygettext($3).$4/seg;
24 return $self->SUPER::textblock($text);