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

6
lib/WebGUI/Asset/Wobject/EventManagementSystem.pm
View file

@ -433,7 +433,7 @@ and event meta data.
=cut
sub purge {
override purge => sub {
my $self = shift;
my $db = $self->session->db;
@ -456,8 +456,8 @@ sub purge {
$db->write("delete from EMSBadgeGroup where emsAssetId=?",[$self->getId]);
$db->write("delete from EMSEventMetaField where assetId=?",[$self->getId]);
$self->SUPER::purge(@_);
}
super();
};
#-------------------------------------------------------------------