Lines 48-61
sub token_negligible_p {
Link Here
|
48 |
my($x) = @_; |
48 |
my($x) = @_; |
49 |
my $t = $x->type; |
49 |
my $t = $x->type; |
50 |
return !$extract_all_p && ( |
50 |
return !$extract_all_p && ( |
51 |
$t == C4::TmplTokenType::TEXT? string_negligible_p( $x->string ): |
51 |
$t == C4::TmplTokenType::TEXT() ? string_negligible_p( $x->string ) : |
52 |
$t == C4::TmplTokenType::DIRECTIVE? 1: |
52 |
$t == C4::TmplTokenType::DIRECTIVE() ? 1 : |
53 |
$t == C4::TmplTokenType::TEXT_PARAMETRIZED |
53 |
$t == C4::TmplTokenType::TEXT_PARAMETRIZED() |
54 |
&& join( '', map { my $t = $_->type; |
54 |
&& join( '', map { my $t = $_->type; |
55 |
$t == C4::TmplTokenType::DIRECTIVE? |
55 |
$t == C4::TmplTokenType::DIRECTIVE() ? |
56 |
'1': $t == C4::TmplTokenType::TAG? |
56 |
'1' : $t == C4::TmplTokenType::TAG() ? |
57 |
'': token_negligible_p( $_ )? |
57 |
'' : token_negligible_p( $_ ) ? |
58 |
'': '1' } @{$x->children} ) eq '' ); |
58 |
'' : '1' } @{$x->children} ) eq '' ); |
59 |
} |
59 |
} |
60 |
|
60 |
|
61 |
############################################################################### |
61 |
############################################################################### |
62 |
- |
|
|