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

(-)a/xt/tt_valid.t (-2 / +6 lines)
Lines 38-44 my @files_with_directive_in_tag = do { Link Here
38
        while ( my $token = $parser->next_token ) {
38
        while ( my $token = $parser->next_token ) {
39
            my $attr = $token->{_attr};
39
            my $attr = $token->{_attr};
40
            next unless $attr;
40
            next unless $attr;
41
            push @lines, $token->{_lc} if $attr->{'[%'};
41
            push @lines, $token->{_lc}
42
                if $attr->{'[%'}
43
                    and not ( $attr->{selected}
44
                          or  $attr->{disabled}
45
                          or  $attr->{checked}
46
                  );
42
        }
47
        }
43
        ($dir) = $dir =~ /koha-tmpl\/(.*)$/;
48
        ($dir) = $dir =~ /koha-tmpl\/(.*)$/;
44
        push @files, { name => "$dir/$name", lines => \@lines } if @lines;
49
        push @files, { name => "$dir/$name", lines => \@lines } if @lines;
45
- 

Return to bug 8407