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

(-)a/C4/Languages.pm (-3 / +8 lines)
Lines 26-31 use Carp; Link Here
26
use CGI;
26
use CGI;
27
use List::MoreUtils qw( any );
27
use List::MoreUtils qw( any );
28
use C4::Context;
28
use C4::Context;
29
use Koha::Caches;
29
use Koha::Cache::Memory::Lite;
30
use Koha::Cache::Memory::Lite;
30
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG);
31
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG);
31
32
Lines 117-129 sub getTranslatedLanguages { Link Here
117
      ? split ",", C4::Context->preference('language')
118
      ? split ",", C4::Context->preference('language')
118
      : split ",", C4::Context->preference('opaclanguage');
119
      : split ",", C4::Context->preference('opaclanguage');
119
120
121
    my $cache = Koha::Caches->get_instance;
120
    if ($interface && $interface eq 'opac' ) {
122
    if ($interface && $interface eq 'opac' ) {
121
        my $htdocs = C4::Context->config('opachtdocs');
123
        my $htdocs = C4::Context->config('opachtdocs');
122
        @languages = _get_opac_language_dirs( $htdocs, $theme );
124
        my $cached = $cache->get_from_cache('languages_opac_'.$theme);
125
        @languages = $cached ? @{$cached} : _get_opac_language_dirs( $htdocs, $theme );
126
        $cache->set_in_cache('languages_opac_'.$theme, \@languages );
123
    }
127
    }
124
    elsif ($interface && $interface eq 'intranet' ) {
128
    elsif ($interface && $interface eq 'intranet' ) {
125
        my $htdocs = C4::Context->config('intrahtdocs');
129
        my $htdocs = C4::Context->config('intrahtdocs');
126
        @languages = _get_intranet_language_dirs( $htdocs, $theme );
130
        my $cached = $cache->get_from_cache('languages_intranet_'.$theme);
131
        @languages = $cached ? @{$cached} : _get_intranet_language_dirs( $htdocs, $theme );
132
        $cache->set_in_cache('languages_intranet_'.$theme, \@languages );
127
    }
133
    }
128
    else {
134
    else {
129
        my $htdocs = C4::Context->config('intrahtdocs');
135
        my $htdocs = C4::Context->config('intrahtdocs');
130
- 

Return to bug 20116