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