Lines 46-51
use CGI qw(-utf8 ); # we will loose -utf8 under plack, otherwise
Link Here
|
46 |
$CGI::PARAM_UTF8 = 1; |
46 |
$CGI::PARAM_UTF8 = 1; |
47 |
Koha::Caches->flush_L1_caches(); |
47 |
Koha::Caches->flush_L1_caches(); |
48 |
Koha::Cache::Memory::Lite->flush(); |
48 |
Koha::Cache::Memory::Lite->flush(); |
|
|
49 |
|
50 |
my $conf_fname = Koha::Config->guess_koha_conf; |
51 |
my $conf_cache = Koha::Caches->get_instance('config'); |
52 |
if ( $conf_cache->cache ) { |
53 |
my $last_modification_time_cached = $conf_cache->get_from_cache('last_modification_time'); |
54 |
my $last_modification_time = qx{stat --format %Y $conf_fname}; |
55 |
unless ( $last_modification_time_cached ) { |
56 |
$conf_cache->set_in_cache('last_modification_time', $last_modification_time) |
57 |
} |
58 |
elsif ( $last_modification_time > $last_modification_time_cached ) { |
59 |
$conf_cache->flush_all; |
60 |
$conf_cache->set_in_cache('last_modification_time', $last_modification_time) |
61 |
} |
62 |
} |
63 |
|
49 |
return $q; |
64 |
return $q; |
50 |
}; |
65 |
}; |
51 |
} |
66 |
} |
52 |
- |
|
|