|
Lines 27-33
my @themes;
Link Here
|
| 27 |
# OPAC themes |
27 |
# OPAC themes |
| 28 |
my $opac_dir = 'koha-tmpl/opac-tmpl'; |
28 |
my $opac_dir = 'koha-tmpl/opac-tmpl'; |
| 29 |
opendir ( my $dh, $opac_dir ) or die "can't opendir $opac_dir: $!"; |
29 |
opendir ( my $dh, $opac_dir ) or die "can't opendir $opac_dir: $!"; |
| 30 |
for my $theme ( grep { not /^\.|lib|js/ } readdir($dh) ) { |
30 |
for my $theme ( grep { not /^\.|lib|js|xslt/ } readdir($dh) ) { |
| 31 |
push @themes, "$opac_dir/$theme/en"; |
31 |
push @themes, "$opac_dir/$theme/en"; |
| 32 |
} |
32 |
} |
| 33 |
close $dh; |
33 |
close $dh; |
| 34 |
- |
|
|