|
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} if $attr->{'[%'} or $attr->{'[%-'}; |
| 42 |
} |
42 |
} |
| 43 |
($dir) = $dir =~ /koha-tmpl\/(.*)$/; |
43 |
($dir) = $dir =~ /koha-tmpl\/(.*)$/; |
| 44 |
push @files, { name => "$dir/$name", lines => \@lines } if @lines; |
44 |
push @files, { name => "$dir/$name", lines => \@lines } if @lines; |
| 45 |
- |
|
|