Lines 47-53
use CGI qw(-utf8 ); # we will loose -utf8 under plack, otherwise
Link Here
|
47 |
*CGI::new = sub { |
47 |
*CGI::new = sub { |
48 |
my $q = $old_new->( @_ ); |
48 |
my $q = $old_new->( @_ ); |
49 |
$CGI::PARAM_UTF8 = 1; |
49 |
$CGI::PARAM_UTF8 = 1; |
50 |
Koha::Caches->flush_L1_caches(); |
50 |
|
|
|
51 |
my $syspref_cache = Koha::Caches->get_instance('syspref'); |
52 |
if ($syspref_cache->{'memcached_cache'}) { #When using a shared caching medium, cache invalidations can be communicated between workers. |
53 |
Koha::Caches->flush_L1_caches(); |
54 |
} |
55 |
else { #Without a shared cache medium, workers cannot invalidate cached values in each others memory, if for. ex. a syspref is changed. |
56 |
Koha::Caches->flush(); #Then we must flush all caches periodically. |
57 |
} |
51 |
Koha::Cache::Memory::Lite->flush(); |
58 |
Koha::Cache::Memory::Lite->flush(); |
52 |
return $q; |
59 |
return $q; |
53 |
}; |
60 |
}; |
54 |
- |
|
|