Central cache access for Assets to handle SSL caching. Fixes bug #11131.

This commit is contained in:
Colin Kuskie 2009-10-20 15:15:38 -07:00
parent f35a9af1fe
commit 5bd5bb48a9
11 changed files with 40 additions and 15 deletions

View file

@ -1681,8 +1681,9 @@ sub view {
my $error = shift;
my $session = $self->session;
if (!$session->var->isAdminOn && $self->get("cacheTimeout") > 10){
my $out = WebGUI::Cache->new($self->session,"view_".$self->getId)->get;
return $out if $out;
my $cache = $self->getCache;
my $out = $cache->get if defined $cache;
return $out if $out;
}
my (%data, $segment, %var, @featureloop, @benefitloop, @specificationloop, @accessoryloop, @relatedloop);
tie %data, 'Tie::CPHash';