|
Lines 110-116
sub new {
Link Here
|
| 110 |
|
110 |
|
| 111 |
# OPAC themes |
111 |
# OPAC themes |
| 112 |
opendir my $dh, $context->config('opachtdocs'); |
112 |
opendir my $dh, $context->config('opachtdocs'); |
| 113 |
for my $theme ( grep { not /^\.|lib/ } readdir($dh) ) { |
113 |
for my $theme ( grep { not /^\.|lib|xslt/ } readdir($dh) ) { |
| 114 |
push @{$self->{interface}}, { |
114 |
push @{$self->{interface}}, { |
| 115 |
name => "OPAC $theme", |
115 |
name => "OPAC $theme", |
| 116 |
dir => "$opachtdocs/$theme", |
116 |
dir => "$opachtdocs/$theme", |
|
Lines 123-129
sub new {
Link Here
|
| 123 |
# search for strings on staff & opac marc files |
123 |
# search for strings on staff & opac marc files |
| 124 |
my $dirs = $context->config('intrahtdocs') . '/prog'; |
124 |
my $dirs = $context->config('intrahtdocs') . '/prog'; |
| 125 |
opendir $fh, $context->config('opachtdocs'); |
125 |
opendir $fh, $context->config('opachtdocs'); |
| 126 |
for ( grep { not /^\.|\.\.|lib$/ } readdir($fh) ) { |
126 |
for ( grep { not /^\.|\.\.|lib$|xslt/ } readdir($fh) ) { |
| 127 |
$dirs .= ' ' . "$opachtdocs/$_"; |
127 |
$dirs .= ' ' . "$opachtdocs/$_"; |
| 128 |
} |
128 |
} |
| 129 |
push @{$self->{interface}}, { |
129 |
push @{$self->{interface}}, { |
| 130 |
- |
|
|