From deac64a9e5d53f42168554e9881a82573f650ae4 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@biblibre.com>
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 <chris@bigballofwax.co.nz>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
---
 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