View | Details | Raw Unified | Return to bug 20115
Collapse All | Expand All

(-)a/C4/Languages.pm (-2 / +11 lines)
Lines 342-349 sub _build_languages_arrayref { Link Here
342
            push ( @{ $language_groups->{$language_subtags_hashref->{language}} }, $language_subtags_hashref );
342
            push ( @{ $language_groups->{$language_subtags_hashref->{language}} }, $language_subtags_hashref );
343
        }
343
        }
344
        # $key is a language subtag like 'en'
344
        # $key is a language subtag like 'en'
345
        while( my ($key, $value) = each %$language_groups) {
346
345
346
        my %idx = map { $enabled_languages->[$_] => $_ } reverse 0 .. @$enabled_languages-1;
347
        my @ordered_keys = sort {
348
            my $aa = $language_groups->{$a}->[0]->{rfc4646_subtag};
349
            my $bb = $language_groups->{$b}->[0]->{rfc4646_subtag};
350
            ( exists $idx{$aa} and exists $idx{$bb} and ( $idx{$aa} cmp $idx{$bb} ) )
351
            || ( exists $idx{$aa} and exists $idx{$bb} )
352
            || exists $idx{$bb}
353
        } keys %$language_groups;
354
355
        for my $key ( @ordered_keys ) {
356
            my $value = $language_groups->{$key};
347
            # is this language group enabled? are any of the languages within it enabled?
357
            # is this language group enabled? are any of the languages within it enabled?
348
            my $enabled;
358
            my $enabled;
349
            for my $enabled_language (@enabled_languages) {
359
            for my $enabled_language (@enabled_languages) {
350
- 

Return to bug 20115