oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Moose overrides for purge, purgeRevision, and purgeCache.

Browse source
This commit is contained in:
Colin Kuskie 2010-04-07 16:43:16 -07:00
parent 7ba89245fa
commit 616d5cc866
36 changed files with 139 additions and 192 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lib/WebGUI/Asset/Wobject/Collaboration.pm
View file

@ -1372,7 +1372,7 @@ Extend the base method to delete the subscription group and cron job for emails.
=cut
sub purge {
override purge => sub {
my $self = shift;
my $group = WebGUI::Group->new($self->session, $self->subscriptionGroupId);
if ($group) {
@ -1382,8 +1382,8 @@ sub purge {
my $cron = WebGUI::Workflow::Cron->new($self->session, $self->getMailCronId);
$cron->delete if defined $cron;
}
$self->next::method;
}
super();
};
#-------------------------------------------------------------------
@ -1393,15 +1393,15 @@ Extend the base method to delete view and visitor caches.
=cut
sub purgeCache {
override purgeCache => sub {
my $self = shift;
my $cache = $self->session->cache;
eval {
$cache->delete("view_".$self->getId);
$cache->delete($self->_visitorCacheKey);
};
$self->next::method;
}
super();
};
#-------------------------------------------------------------------