|
Lines 92-98
sub set_children {
Link Here
|
| 92 |
# FIXME: DIRECTIVE is not necessarily TMPL_VAR !! |
92 |
# FIXME: DIRECTIVE is not necessarily TMPL_VAR !! |
| 93 |
sub parameters_and_fields { |
93 |
sub parameters_and_fields { |
| 94 |
my $this = shift; |
94 |
my $this = shift; |
| 95 |
return map { $_->type == C4::TmplTokenType::DIRECTIVE? $_: |
95 |
return map { $_->type == C4::TmplTokenType::DIRECTIVE() ? $_: |
| 96 |
($_->type == C4::TmplTokenType::TAG |
96 |
($_->type == C4::TmplTokenType::TAG |
| 97 |
&& $_->string =~ /^<input\b/is)? $_: ()} |
97 |
&& $_->string =~ /^<input\b/is)? $_: ()} |
| 98 |
@{$this->{'_kids'}}; |
98 |
@{$this->{'_kids'}}; |