|
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 |
- |
|
|