|
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 |
- |
|
|