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