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; |
122 |
my $cache_key = "languages_${interface}_${theme}"; |
120 |
if ($interface && $interface eq 'opac' ) { |
123 |
if ($interface && $interface eq 'opac' ) { |
121 |
my $htdocs = C4::Context->config('opachtdocs'); |
124 |
my $htdocs = C4::Context->config('opachtdocs'); |
122 |
@languages = _get_opac_language_dirs( $htdocs, $theme ); |
125 |
if ( $cached ) { |
|
|
126 |
@languages = @{$cached}; |
127 |
} else { |
128 |
@languages = _get_opac_language_dirs( $htdocs, $theme ); |
129 |
$cache->set_in_cache($cache_key, \@languages ); |
130 |
} |
123 |
} |
131 |
} |
124 |
elsif ($interface && $interface eq 'intranet' ) { |
132 |
elsif ($interface && $interface eq 'intranet' ) { |
125 |
my $htdocs = C4::Context->config('intrahtdocs'); |
133 |
my $htdocs = C4::Context->config('intrahtdocs'); |
126 |
@languages = _get_intranet_language_dirs( $htdocs, $theme ); |
134 |
my $cached = $cache->get_from_cache($cache_key); |
|
|
135 |
if ( $cached ) { |
136 |
@languages = @{$cached}; |
137 |
} else { |
138 |
@languages = _get_intranet_language_dirs( $htdocs, $theme ); |
139 |
$cache->set_in_cache($cache_key, \@languages ); |
140 |
} |
127 |
} |
141 |
} |
128 |
else { |
142 |
else { |
129 |
my $htdocs = C4::Context->config('intrahtdocs'); |
143 |
my $htdocs = C4::Context->config('intrahtdocs'); |
130 |
- |
|
|