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

(-)a/C4/Languages.pm (-5 lines)
Lines 391-400 sub _build_languages_arrayref { Link Here
391
            # group this language, key by langtag
391
            # group this language, key by langtag
392
            $language_subtags_hashref->{'sublanguage_current'} = 1 if $translated_language eq $current_language;
392
            $language_subtags_hashref->{'sublanguage_current'} = 1 if $translated_language eq $current_language;
393
            $language_subtags_hashref->{'rfc4646_subtag'} = $translated_language;
393
            $language_subtags_hashref->{'rfc4646_subtag'} = $translated_language;
394
            $language_subtags_hashref->{'native_description'} = language_get_description($language_subtags_hashref->{language},$language_subtags_hashref->{language},'language');
395
            $language_subtags_hashref->{'script_description'} = language_get_description($language_subtags_hashref->{script},$language_subtags_hashref->{'language'},'script');
396
            $language_subtags_hashref->{'region_description'} = language_get_description($language_subtags_hashref->{region},$language_subtags_hashref->{'language'},'region');
397
            $language_subtags_hashref->{'variant_description'} = language_get_description($language_subtags_hashref->{variant},$language_subtags_hashref->{'language'},'variant');
398
            $track_language_groups->{$language_subtags_hashref->{'language'}}++;
394
            $track_language_groups->{$language_subtags_hashref->{'language'}}++;
399
            push ( @{ $language_groups->{$language_subtags_hashref->{language}} }, $language_subtags_hashref );
395
            push ( @{ $language_groups->{$language_subtags_hashref->{language}} }, $language_subtags_hashref );
400
        }
396
        }
Lines 410-416 sub _build_languages_arrayref { Link Here
410
            push @languages_loop,  {
406
            push @languages_loop,  {
411
                            # this is only use if there is one
407
                            # this is only use if there is one
412
                            rfc4646_subtag => @$value[0]->{rfc4646_subtag},
408
                            rfc4646_subtag => @$value[0]->{rfc4646_subtag},
413
                            native_description => language_get_description($key,$key,'language'),
414
                            language => $key,
409
                            language => $key,
415
                            sublanguages_loop => $value,
410
                            sublanguages_loop => $value,
416
                            plural => $track_language_groups->{$key} >1 ? 1 : 0,
411
                            plural => $track_language_groups->{$key} >1 ? 1 : 0,
(-)a/C4/Templates.pm (-2 / +1 lines)
Lines 32-38 use List::MoreUtils qw/any/; 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