When Group->new is called with a group that doesn't exist, it returns a faked Group object. Calling delete on this object fails for some Cache types.

This commit is contained in:
Colin Kuskie 2012-11-01 17:52:51 -07:00
parent 981ab43984
commit 2ec38b1407
2 changed files with 3 additions and 1 deletions

View file

@ -1,4 +1,5 @@
7.10.28
- fixed: Clearing the caches for groups that don't exist, but have created group objects.
7.10.27
- fixed #12379: userImport documentation error

View file

@ -277,7 +277,8 @@ sub clearCaches {
my $session = $self->session;
##Clear my cache and the cache of all groups above me.
my $groups = $self->getAllGroupsFor();
foreach my $groupId ( $self->getId, @{ $groups } ) {
GROUPID: foreach my $groupId ( $self->getId, @{ $groups } ) {
next GROUPID if !$groupId;
WebGUI::Cache->new($session, $groupId)->delete;
WebGUI::Cache->new($session, ["groupMembers", $groupId])->delete;
}