Skip to content

Instantly share code, notes, and snippets.

@perlDreamer

perlDreamer/gist:214559

Created October 20, 2009 19:57
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save perlDreamer/214559 to your computer and use it in GitHub Desktop.
Save perlDreamer/214559 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.perl
diff --git a/lib/WebGUI/Asset/Snippet.pm b/lib/WebGUI/Asset/Snippet.pm
index 6ff5d2c..f93698d 100644
--- a/lib/WebGUI/Asset/Snippet.pm
+++ b/lib/WebGUI/Asset/Snippet.pm
@@ -279,7 +279,8 @@ sub view {
|| $self->get("cacheTimeout") <= 10
|| ($versionTag && $versionTag->getId eq $self->get("tagId"));
unless ($noCache) {
- my $out = WebGUI::Cache->new($session,"view_".$calledAsWebMethod."_".$self->getId)->get;
+ my $cache = $self->getCache;
+ my $out = $cache->get if defined $cache;
return $out if $out;
}
my $output = $self->get('usePacked')
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment