From deac64a9e5d53f42168554e9881a82573f650ae4 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 10 Jul 2012 15:19:38 +0200 Subject: [PATCH] Bug 8407: make tt_valid less strict (for non translatable strings) Signed-off-by: Chris Cormack Signed-off-by: Chris Cormack --- xt/tt_valid.t | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/xt/tt_valid.t b/xt/tt_valid.t index f71085e..9db7f5c 100755 --- a/xt/tt_valid.t +++ b/xt/tt_valid.t @@ -24,7 +24,6 @@ use File::Find; use Cwd; use C4::TTParser; - my @files_with_directive_in_tag = do { my @files; find( sub { @@ -38,7 +37,12 @@ my @files_with_directive_in_tag = do { while ( my $token = $parser->next_token ) { my $attr = $token->{_attr}; next unless $attr; - push @lines, $token->{_lc} if $attr->{'[%'}; + push @lines, $token->{_lc} + if $attr->{'[%'} + and not ( $attr->{'%]selected'} + or $attr->{'%]disabled'} + or $attr->{'%]checked'} + ); } ($dir) = $dir =~ /koha-tmpl\/(.*)$/; push @files, { name => "$dir/$name", lines => \@lines } if @lines; -- 1.7.9.5