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