Lines 34-40
eval {
Link Here
|
34 |
import Memoize::Memcached qw(memoize_memcached); |
34 |
import Memoize::Memcached qw(memoize_memcached); |
35 |
|
35 |
|
36 |
memoize_memcached('getTranslatedLanguages', memcached => C4::Context->memcached); |
36 |
memoize_memcached('getTranslatedLanguages', memcached => C4::Context->memcached); |
37 |
memoize_memcached('getFrameworkLanguages' , memcached => C4::Context->memcached); |
|
|
38 |
memoize_memcached('getAllLanguages', memcached => C4::Context->memcached); |
37 |
memoize_memcached('getAllLanguages', memcached => C4::Context->memcached); |
39 |
} |
38 |
} |
40 |
}; |
39 |
}; |
Lines 44-55
BEGIN {
Link Here
|
44 |
require Exporter; |
43 |
require Exporter; |
45 |
@ISA = qw(Exporter); |
44 |
@ISA = qw(Exporter); |
46 |
@EXPORT = qw( |
45 |
@EXPORT = qw( |
47 |
&getFrameworkLanguages |
|
|
48 |
&getTranslatedLanguages |
46 |
&getTranslatedLanguages |
49 |
&getLanguages |
47 |
&getLanguages |
50 |
&getAllLanguages |
48 |
&getAllLanguages |
51 |
); |
49 |
); |
52 |
@EXPORT_OK = qw(getSearchLanguages getLanguagesIso getFrameworkLanguages getTranslatedLanguages getAllLanguages getLanguages get_bidi regex_lang_subtags language_get_description accept_language getlanguage); |
50 |
@EXPORT_OK = qw(getSearchLanguages getLanguagesIso getTranslatedLanguages getAllLanguages getLanguages get_bidi regex_lang_subtags language_get_description accept_language getlanguage); |
53 |
$DEBUG = 0; |
51 |
$DEBUG = 0; |
54 |
} |
52 |
} |
55 |
|
53 |
|
56 |
- |
|
|