RT# 39340 - fixed skin_info caching issue

[freeside.git] / FS / FS / ClientAPI / MyAccount.pm

diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm
index 5bccad1..c1b6ec2 100644 (file)
--- a/FS/FS/ClientAPI/MyAccount.pm
+++ b/FS/FS/ClientAPI/MyAccount.pm
@@ -106,7 +106,7 @@ sub skin_info {
   $p->{'agentnum'} = $agentnum;
 
   my $conf = new FS::Conf;
-
+  my $timeout = $conf->config('selfservice-session_timeout') || '1 hour';
   #false laziness w/Signup.pm
 
   my $skin_info_cache_agent = _cache->get("skin_info_cache_agent$agentnum");
@@ -149,7 +149,7 @@ sub skin_info {
       'menu'  => _menu($domain,$menu),
     };
 
-    _cache->set("skin_info_cache_agent$agentnum", $skin_info_cache_agent);
+    _cache->set("skin_info_cache_agent$agentnum", $skin_info_cache_agent, $timeout);
 
   }