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