gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 29672: Clear cache of enabled plugins when a plugin's state change 

Signed-off-by: David Nind <david@davidnind.com>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
This commit is contained in:
Julian Maurice 2022-06-06 09:14:59 +02:00 committed by Tomas Cohen Arazi
parent 08f24d0adf
commit 1e80e4a7e0
No known key found for this signature in database
GPG Key ID: 0A272EA1B2F3C15F
2 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Koha/Plugins.pm
View File

@ -34,6 +34,8 @@ use Koha::Cache::Memory::Lite;
use Koha::Exceptions::Plugin;
use Koha::Plugins::Methods;
use constant ENABLED_PLUGINS_CACHE_KEY => 'enabled_plugins';
BEGIN {
my $pluginsdir = C4::Context->config("pluginsdir");
my @pluginsdir = ref($pluginsdir) eq 'ARRAY' ? @$pluginsdir : $pluginsdir;
@ -103,8 +105,7 @@ sub get_enabled_plugins {
return unless C4::Context->config('enable_plugins');
my $cache_key = 'enabled_plugins';
my $enabled_plugins = Koha::Cache::Memory::Lite->get_from_cache($cache_key);
my $enabled_plugins = Koha::Cache::Memory::Lite->get_from_cache(ENABLED_PLUGINS_CACHE_KEY);
unless ($enabled_plugins) {
$enabled_plugins = [];
my $rs = Koha::Database->schema->resultset('PluginData');
@ -124,7 +125,7 @@ sub get_enabled_plugins {
push @$enabled_plugins, $plugin;
}
Koha::Cache::Memory::Lite->set_in_cache($cache_key, $enabled_plugins);
Koha::Cache::Memory::Lite->set_in_cache(ENABLED_PLUGINS_CACHE_KEY, $enabled_plugins);
}
return @$enabled_plugins;
@ -258,6 +259,9 @@ sub InstallPlugins {
warn $error unless $error =~ m|^Could not find or check module '$plugin_class'|;
}
}
Koha::Cache::Memory::Lite->clear_from_cache(ENABLED_PLUGINS_CACHE_KEY);
return @plugins;
}

5
Koha/Plugins/Base.pm
View File

@ -29,6 +29,7 @@ use C4::Context;
use C4::Output qw( output_with_http_headers );
use Koha::Exceptions::Plugin;
use Koha::Cache::Memory::Lite;
=head1 NAME
@ -104,6 +105,10 @@ sub store_data {
foreach my $key ( keys %$data ) {
$sth->execute( $self->{'class'}, $key, $data->{$key} );
}
if (exists $data->{__ENABLED__}) {
Koha::Cache::Memory::Lite->clear_from_cache(Koha::Plugins->ENABLED_PLUGINS_CACHE_KEY);
}
}
=head2 retrieve_data