Signed-off-by: Bernardo Gonzalez Kriegel <bgkriegel@gmail.com>
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Mark Tompsett <mtompset@hotmail.com>
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Brendan A Gallagher <brendan@bywatersolutions.com>
# FIXME: DIRECTIVE is not necessarily TMPL_VAR !!
sub parameters_and_fields {
my $this = shift;
- return map { $_->type == C4::TmplTokenType::DIRECTIVE? $_:
+ return map { $_->type == C4::TmplTokenType::DIRECTIVE() ? $_:
($_->type == C4::TmplTokenType::TAG
&& $_->string =~ /^<input\b/is)? $_: ()}
@{$this->{'_kids'}};
return $this->{'name'}
}
-sub TEXT { $_text }
-sub TEXT_PARAMETRIZED { $_text_parametrized }
-sub CDATA { $_cdata }
-sub TAG { $_tag }
-sub DECL { $_decl }
-sub PI { $_pi }
-sub DIRECTIVE { $_directive }
-sub COMMENT { $_comment }
-sub UNKNOWN { $_unknown }
+sub TEXT { $_text }
+sub TEXT_PARAMETRIZED { $_text_parametrized }
+sub CDATA { $_cdata }
+sub TAG { $_tag }
+sub DECL { $_decl }
+sub PI { $_pi }
+sub DIRECTIVE { $_directive }
+sub COMMENT { $_comment }
+sub UNKNOWN { $_unknown }
###############################################################################