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

(-)a/C4/Languages.pm (-5 lines)
Lines 436-445 sub _build_languages_arrayref { Link Here
436
            # group this language, key by langtag
436
            # group this language, key by langtag
437
            $language_subtags_hashref->{'sublanguage_current'} = 1 if $translated_language eq $current_language;
437
            $language_subtags_hashref->{'sublanguage_current'} = 1 if $translated_language eq $current_language;
438
            $language_subtags_hashref->{'rfc4646_subtag'} = $translated_language;
438
            $language_subtags_hashref->{'rfc4646_subtag'} = $translated_language;
439
            $language_subtags_hashref->{'native_description'} = language_get_description($language_subtags_hashref->{language},$language_subtags_hashref->{language},'language');
440
            $language_subtags_hashref->{'script_description'} = language_get_description($language_subtags_hashref->{script},$language_subtags_hashref->{'language'},'script');
441
            $language_subtags_hashref->{'region_description'} = language_get_description($language_subtags_hashref->{region},$language_subtags_hashref->{'language'},'region');
442
            $language_subtags_hashref->{'variant_description'} = language_get_description($language_subtags_hashref->{variant},$language_subtags_hashref->{'language'},'variant');
443
            $track_language_groups->{$language_subtags_hashref->{'language'}}++;
439
            $track_language_groups->{$language_subtags_hashref->{'language'}}++;
444
            push ( @{ $language_groups->{$language_subtags_hashref->{language}} }, $language_subtags_hashref );
440
            push ( @{ $language_groups->{$language_subtags_hashref->{language}} }, $language_subtags_hashref );
445
        }
441
        }
Lines 455-461 sub _build_languages_arrayref { Link Here
455
            push @languages_loop,  {
451
            push @languages_loop,  {
456
                            # this is only use if there is one
452
                            # this is only use if there is one
457
                            rfc4646_subtag => @$value[0]->{rfc4646_subtag},
453
                            rfc4646_subtag => @$value[0]->{rfc4646_subtag},
458
                            native_description => language_get_description($key,$key,'language'),
459
                            language => $key,
454
                            language => $key,
460
                            sublanguages_loop => $value,
455
                            sublanguages_loop => $value,
461
                            plural => $track_language_groups->{$key} >1 ? 1 : 0,
456
                            plural => $track_language_groups->{$key} >1 ? 1 : 0,
(-)a/C4/Templates.pm (-2 / +1 lines)
Lines 32-38 use List::MoreUtils qw/ any uniq /; Link Here
32
use base qw(Class::Accessor);
32
use base qw(Class::Accessor);
33
use Template;
33
use Template;
34
use Template::Constants qw( :debug );
34
use Template::Constants qw( :debug );
35
use C4::Languages qw(getTranslatedLanguages get_bidi regex_lang_subtags language_get_description accept_language );
35
use C4::Languages qw(getTranslatedLanguages get_bidi regex_lang_subtags accept_language );
36
36
37
use C4::Context;
37
use C4::Context;
38
38
39
- 

Return to bug 12017