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

(-)a/misc/translator/xgettext.pl (-10 / +15 lines)
Lines 45-61 sub string_negligible_p { Link Here
45
}
45
}
46
46
47
sub token_negligible_p {
47
sub token_negligible_p {
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(
55
			$t == C4::TmplTokenType::DIRECTIVE() ?
55
            '',
56
				'1' : $t == C4::TmplTokenType::TAG() ?
56
            map {
57
					'' : token_negligible_p( $_ ) ?
57
                my $t = $_->type;
58
					'' : '1' } @{$x->children} ) eq '' );
58
                    $t == C4::TmplTokenType::DIRECTIVE() ? '1'
59
                  : $t == C4::TmplTokenType::TAG()       ? ''
60
                  : token_negligible_p($_)               ? ''
61
                  : '1'
62
            } @{ $x->children }
63
        ) eq ''
64
    );
59
}
65
}
60
66
61
###############################################################################
67
###############################################################################
62
- 

Return to bug 15687