a little more strict here.

This commit is contained in:
Matthew Wilson 2006-05-19 01:16:31 +00:00
parent 50eebd27d8
commit 1a6e27710b

View file

@ -203,9 +203,11 @@ See WebGUI::Asset::purgeCache() for details.
sub purgeCache {
my $self = shift;
WebGUI::Cache->new($self->session,"view_".$self->getId)->delete;
my $cache = WebGUI::Cache->new($self->session,"view_".$self->getId);
$cache->delete if $cache;
$self->SUPER::purgeCache;
$self->getParent->purgeCache;
my $parent = $self->getParent;
$parent->purgeCache if defined $parent;
}
#-------------------------------------------------------------------