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