From c2fd9a7fc32e5e0a746b02f082fc781dff9cf69e Mon Sep 17 00:00:00 2001 From: Jared Camins-Esakov Date: Tue, 15 May 2012 07:14:01 -0400 Subject: [PATCH] Bug 8089: Cache sysprefs using Koha::Cache Content-Type: text/plain; charset="UTF-8" Cache sysprefs using Koha::Cache in a way that is safe even for caching-related sysprefs. This lays the groundwork for removing caching configuration from the httpd.conf and configuring it using sysprefs. --- C4/Context.pm | 20 ++++++++++++++++++++ 1 files changed, 20 insertions(+), 0 deletions(-) diff --git a/C4/Context.pm b/C4/Context.pm index a451aa4..865c2a0 100644 --- a/C4/Context.pm +++ b/C4/Context.pm @@ -487,11 +487,20 @@ my %sysprefs; sub preference { my $self = shift; my $var = lc(shift); # The system preference to return + my $cache; if (exists $sysprefs{$var}) { return $sysprefs{$var}; } + if (Koha::Cache->is_cache_active()) { + $cache = Koha::Cache->new(); + if (defined $cache) { + $sysprefs{$var} = $cache->get_from_cache("syspref:$var"); + return $sysprefs{$var} if (defined $sysprefs{$var}); + } + } + my $dbh = C4::Context->dbh or return 0; # Look up systempreferences.variable==$var @@ -502,6 +511,9 @@ sub preference { LIMIT 1 END_SQL $sysprefs{$var} = $dbh->selectrow_array( $sql, {}, $var ); + if (Koha::Cache->is_cache_active() && defined $cache) { + $cache->set_in_cache("syspref:$var"); + } return $sysprefs{$var}; } @@ -524,6 +536,10 @@ will not be seen by this process. sub clear_syspref_cache { %sysprefs = (); + if (Koha::Cache->is_cache_active()) { + my $cache = Koha::Cache->new(); + $cache->flush_all() if defined $cache; # Sorry, this is unpleasant + } } =head2 set_preference @@ -554,6 +570,10 @@ sub set_preference { " ); if($sth->execute( $var, $value )) { + if (Koha::Cache->is_cache_active()) { + my $cache = Koha::Cache->new(); + $cache->set_in_cache("syspref:$var", $value) if defined $cache; + } $sysprefs{$var} = $value; } $sth->finish; -- 1.7.2.5