Lines 313-318
sub _build_languages_arrayref {
Link Here
|
313 |
$current_language //= ''; |
313 |
$current_language //= ''; |
314 |
my @translated_languages = @$translated_languages; |
314 |
my @translated_languages = @$translated_languages; |
315 |
my @languages_loop; # the final reference to an array of hashrefs |
315 |
my @languages_loop; # the final reference to an array of hashrefs |
|
|
316 |
my @languages_loop_sorted; |
316 |
my @enabled_languages = @$enabled_languages; |
317 |
my @enabled_languages = @$enabled_languages; |
317 |
# how many languages are enabled, if one, take note, some contexts won't need to display it |
318 |
# how many languages are enabled, if one, take note, some contexts won't need to display it |
318 |
my %seen_languages; # the language tags we've seen |
319 |
my %seen_languages; # the language tags we've seen |
Lines 321-327
sub _build_languages_arrayref {
Link Here
|
321 |
my $track_language_groups; |
322 |
my $track_language_groups; |
322 |
my $current_language_regex = regex_lang_subtags($current_language); |
323 |
my $current_language_regex = regex_lang_subtags($current_language); |
323 |
# Loop through the translated languages |
324 |
# Loop through the translated languages |
324 |
for my $translated_language (@translated_languages) { |
325 |
for my $translated_language (sort @translated_languages) { |
325 |
# separate the language string into its subtag types |
326 |
# separate the language string into its subtag types |
326 |
my $language_subtags_hashref = regex_lang_subtags($translated_language); |
327 |
my $language_subtags_hashref = regex_lang_subtags($translated_language); |
327 |
|
328 |
|
Lines 361-367
sub _build_languages_arrayref {
Link Here
|
361 |
group_enabled => $enabled, |
362 |
group_enabled => $enabled, |
362 |
}; |
363 |
}; |
363 |
} |
364 |
} |
364 |
return \@languages_loop; |
365 |
@languages_loop_sorted = sort{ $a->{language} cmp $b->{language} } @languages_loop; |
|
|
366 |
return \@languages_loop_sorted; |
365 |
} |
367 |
} |
366 |
|
368 |
|
367 |
sub language_get_description { |
369 |
sub language_get_description { |
368 |
- |
|
|