|
Lines 269-275
sub _get_themes {
Link Here
|
| 269 |
my $interface = shift; |
269 |
my $interface = shift; |
| 270 |
my $htdocs; |
270 |
my $htdocs; |
| 271 |
my @themes; |
271 |
my @themes; |
| 272 |
if ( $interface eq 'intranet' ) { |
272 |
if ( $interface && $interface eq 'intranet' ) { |
| 273 |
$htdocs = C4::Context->config('intrahtdocs'); |
273 |
$htdocs = C4::Context->config('intrahtdocs'); |
| 274 |
} |
274 |
} |
| 275 |
else { |
275 |
else { |
|
Lines 292-297
Internal function, returns an array of directory names, excluding non-language d
Link Here
|
| 292 |
|
292 |
|
| 293 |
sub _get_language_dirs { |
293 |
sub _get_language_dirs { |
| 294 |
my ($htdocs,$theme) = @_; |
294 |
my ($htdocs,$theme) = @_; |
|
|
295 |
$htdocs //= ''; |
| 296 |
$theme //= ''; |
| 295 |
my @lang_strings; |
297 |
my @lang_strings; |
| 296 |
opendir D, "$htdocs/$theme"; |
298 |
opendir D, "$htdocs/$theme"; |
| 297 |
for my $lang_string ( readdir D ) { |
299 |
for my $lang_string ( readdir D ) { |
|
Lines 318-323
FIXME: this could be rewritten and simplified using map
Link Here
|
| 318 |
|
320 |
|
| 319 |
sub _build_languages_arrayref { |
321 |
sub _build_languages_arrayref { |
| 320 |
my ($translated_languages,$current_language,$enabled_languages) = @_; |
322 |
my ($translated_languages,$current_language,$enabled_languages) = @_; |
|
|
323 |
$current_language //= ''; |
| 321 |
my @translated_languages = @$translated_languages; |
324 |
my @translated_languages = @$translated_languages; |
| 322 |
my @languages_loop; # the final reference to an array of hashrefs |
325 |
my @languages_loop; # the final reference to an array of hashrefs |
| 323 |
my @enabled_languages = @$enabled_languages; |
326 |
my @enabled_languages = @$enabled_languages; |
|
Lines 355-361
sub _build_languages_arrayref {
Link Here
|
| 355 |
my $enabled; |
358 |
my $enabled; |
| 356 |
for my $enabled_language (@enabled_languages) { |
359 |
for my $enabled_language (@enabled_languages) { |
| 357 |
my $regex_enabled_language = regex_lang_subtags($enabled_language); |
360 |
my $regex_enabled_language = regex_lang_subtags($enabled_language); |
| 358 |
$enabled = 1 if $key eq $regex_enabled_language->{language}; |
361 |
$enabled = 1 if $key eq ($regex_enabled_language->{language} // ''); |
| 359 |
} |
362 |
} |
| 360 |
push @languages_loop, { |
363 |
push @languages_loop, { |
| 361 |
# this is only use if there is one |
364 |
# this is only use if there is one |
|
Lines 364-370
sub _build_languages_arrayref {
Link Here
|
| 364 |
language => $key, |
367 |
language => $key, |
| 365 |
sublanguages_loop => $value, |
368 |
sublanguages_loop => $value, |
| 366 |
plural => $track_language_groups->{$key} >1 ? 1 : 0, |
369 |
plural => $track_language_groups->{$key} >1 ? 1 : 0, |
| 367 |
current => $current_language_regex->{language} eq $key ? 1 : 0, |
370 |
current => ($current_language_regex->{language} // '') eq $key ? 1 : 0, |
| 368 |
group_enabled => $enabled, |
371 |
group_enabled => $enabled, |
| 369 |
}; |
372 |
}; |
| 370 |
} |
373 |
} |
| 371 |
- |
|
|