TODO: Would be better to provide a better way to know if memcache is correctly set
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
use C4::Branch; # GetBranches
use C4::Search::History;
use Koha;
+use Koha::Caches;
use Koha::AuthUtils qw(get_script_name hash_password);
use Koha::LibraryCategories;
use Koha::Libraries;
elsif ( $storage_method eq 'Pg' ) {
$session = new CGI::Session( "driver:PostgreSQL;serializer:yaml;id:md5", $sessionID, { Handle => $dbh } );
}
- elsif ( $storage_method eq 'memcached' && C4::Context->ismemcached ) {
+ elsif ( $storage_method eq 'memcached' && Koha::Caches->get_instance->memcached_cache ) {
$session = new CGI::Session( "driver:memcached;serializer:yaml;id:md5", $sessionID, { Memcached => C4::Context->memcached } );
}
else {
unless ( $self->{namespace} and @servers ) {
my $koha_config = Koha::Config->read_from_file( Koha::Config->guess_koha_conf() );
$self->{namespace} ||= $koha_config->{config}{memcached_namespace} || 'koha';
- @servers ||= split /,/, $koha_config->{config}{memcached_servers};
+ @servers = split /,/, $koha_config->{config}{memcached_servers} unless @servers;
}
$self->{namespace} .= ":$subnamespace:";
use C4::Koha qw/GetFrameworksLoop/;
use C4::Branch;
use C4::Context;
+use Koha::Caches;
use C4::Log;
use Koha::DateUtils qw/dt_from_string output_pref/;
use Koha::AuthorisedValue;
=cut
my $input = new CGI;
-my $usecache = C4::Context->ismemcached;
+my $usecache = Koha::Caches->get_instance->memcached_cache;
my $phase = $input->param('phase') // '';
my $flagsrequired;