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

Cleanup thread subscription groups during purge.

Browse source
This commit is contained in:
Colin Kuskie 2009-05-20 03:27:48 +00:00
parent abb6ff29d5
commit 1ad192fe57
2 changed files with 16 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lib/WebGUI/Asset/Post/Thread.pm
View file

@ -602,10 +602,22 @@ sub processPropertiesFromFormPost {
}
#-------------------------------------------------------------------
=head2 purge
Extend the base class to delete from the Thread_read table, and to delete
the subscriptionGroup for this thread.
=cut
sub purge {
my $self = shift;
$self->session->db->write("delete from Thread_read where threadId=?",[$self->getId]);
$self->SUPER::purge;
my $self = shift;
$self->session->db->write("delete from Thread_read where threadId=?",[$self->getId]);
my $group = WebGUI::Group->new($self->session, $self->get("subscriptionGroupId"));
if ($group) {
$group->delete;
}
$self->SUPER::purge;
}
#-------------------------------------------------------------------