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