@@ -, +, @@ --- C4/TmplToken.pm | 2 +- C4/TmplTokenType.pm | 18 +++++++++--------- 2 files changed, 10 insertions(+), 10 deletions(-) --- a/C4/TmplToken.pm +++ a/C4/TmplToken.pm @@ -92,7 +92,7 @@ sub set_children { # 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 =~ /^{'_kids'}}; --- a/C4/TmplTokenType.pm +++ a/C4/TmplTokenType.pm @@ -83,15 +83,15 @@ sub to_string { 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 } ############################################################################### --