View | Details | Raw Unified | Return to bug 6679
Collapse All | Expand All

(-)a/C4/TmplToken.pm (-1 / +1 lines)
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'}};
(-)a/C4/TmplTokenType.pm (-10 / +9 lines)
Lines 83-97 sub to_string { Link Here
83
    return $this->{'name'}
83
    return $this->{'name'}
84
}
84
}
85
85
86
sub TEXT		 { $_text }
86
sub TEXT              { $_text }
87
sub TEXT_PARAMETRIZED	 { $_text_parametrized }
87
sub TEXT_PARAMETRIZED { $_text_parametrized }
88
sub CDATA		 { $_cdata }
88
sub CDATA             { $_cdata }
89
sub TAG			 { $_tag }
89
sub TAG               { $_tag }
90
sub DECL		 { $_decl }
90
sub DECL              { $_decl }
91
sub PI			 { $_pi }
91
sub PI                { $_pi }
92
sub DIRECTIVE		 { $_directive }
92
sub DIRECTIVE         { $_directive }
93
sub COMMENT		 { $_comment }
93
sub COMMENT           { $_comment }
94
sub UNKNOWN		 { $_unknown }
94
sub UNKNOWN           { $_unknown }
95
95
96
###############################################################################
96
###############################################################################
97
97
98
- 

Return to bug 6679