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

(-)a/C4/Languages.pm (-2 / +13 lines)
Lines 480-485 Missing POD for language_get_description. Link Here
480
480
481
sub language_get_description {
481
sub language_get_description {
482
    my ( $script, $lang, $type ) = @_;
482
    my ( $script, $lang, $type ) = @_;
483
484
    my $memory_cache = Koha::Cache::Memory::Lite->get_instance;
485
    my $cache_key    = "Language_descriptions:$script:$lang:$type";
486
    my $cached       = $memory_cache->get_from_cache($cache_key);
487
    return $cached if $cached;
488
483
    my $dbh = C4::Context->dbh;
489
    my $dbh = C4::Context->dbh;
484
    my $desc;
490
    my $desc;
485
    my $sth = $dbh->prepare("SELECT description FROM language_descriptions WHERE subtag=? AND lang=? AND type=?");
491
    my $sth = $dbh->prepare("SELECT description FROM language_descriptions WHERE subtag=? AND lang=? AND type=?");
Lines 496-501 sub language_get_description { Link Here
496
            $desc = $descriptions->{'description'};
502
            $desc = $descriptions->{'description'};
497
        }
503
        }
498
    }
504
    }
505
    $memory_cache->set_in_cache( $cache_key, $desc );
499
    return $desc;
506
    return $desc;
500
}
507
}
501
508
Lines 797-805 sub getlanguage { Link Here
797
804
798
sub get_rfc4646_from_iso639 {
805
sub get_rfc4646_from_iso639 {
799
806
800
    my $iso_code = shift;
807
    my $iso_code     = shift;
808
    my $memory_cache = Koha::Cache::Memory::Lite->get_instance;
809
    my $cache_key    = "RFC4646ByISO639:$iso_code";
810
    my $cached       = $memory_cache->get_from_cache($cache_key);
811
    return $cached if $cached;
801
    my $rfc_subtag =
812
    my $rfc_subtag =
802
        Koha::Database->new()->schema->resultset('LanguageRfc4646ToIso639')->find( { iso639_2_code => $iso_code } );
813
        Koha::Database->new()->schema->resultset('LanguageRfc4646ToIso639')->find( { iso639_2_code => $iso_code } );
814
    $memory_cache->set_in_cache( $cache_key, $rfc_subtag );
803
    if ($rfc_subtag) {
815
    if ($rfc_subtag) {
804
        return $rfc_subtag->rfc4646_subtag;
816
        return $rfc_subtag->rfc4646_subtag;
805
    } else {
817
    } else {
806
- 

Return to bug 41440