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

(-)a/xt/tt_valid.t (-3 / +6 lines)
Lines 24-30 use File::Find; Link Here
24
use Cwd;
24
use Cwd;
25
use C4::TTParser;
25
use C4::TTParser;
26
26
27
28
my @files_with_directive_in_tag = do {
27
my @files_with_directive_in_tag = do {
29
    my @files;
28
    my @files;
30
    find( sub {
29
    find( sub {
Lines 38-44 my @files_with_directive_in_tag = do { Link Here
38
        while ( my $token = $parser->next_token ) {
37
        while ( my $token = $parser->next_token ) {
39
            my $attr = $token->{_attr};
38
            my $attr = $token->{_attr};
40
            next unless $attr;
39
            next unless $attr;
41
            push @lines, $token->{_lc} if $attr->{'[%'};
40
            push @lines, $token->{_lc}
41
                if $attr->{'[%'}
42
                    and not ( $attr->{'%]selected'}
43
                          or  $attr->{'%]disabled'}
44
                          or  $attr->{'%]checked'}
45
                  );
42
        }
46
        }
43
        ($dir) = $dir =~ /koha-tmpl\/(.*)$/;
47
        ($dir) = $dir =~ /koha-tmpl\/(.*)$/;
44
        push @files, { name => "$dir/$name", lines => \@lines } if @lines;
48
        push @files, { name => "$dir/$name", lines => \@lines } if @lines;
45
- 

Return to bug 8407