diff --git a/lib/WebGUI/Asset/Post/Thread.pm b/lib/WebGUI/Asset/Post/Thread.pm index e8d86a98e..3c455cdb9 100644 --- a/lib/WebGUI/Asset/Post/Thread.pm +++ b/lib/WebGUI/Asset/Post/Thread.pm @@ -172,13 +172,13 @@ Extends the base method to increment the number of threads in the parent CS. =cut -sub commit { - my $self = shift; - $self->SUPER::commit; - if ($self->isNew) { - $self->getParent->incrementThreads($self->revisionDate,$self->getId); - } -} +override commit => sub { + my $self = shift; + super(); + if ($self->isNew) { + $self->getParent->incrementThreads($self->revisionDate,$self->getId); + } +}; #------------------------------------------------------------------- # Override duplicateBranch here so that new posts get their threadId set correctly. diff --git a/lib/WebGUI/Asset/Wobject/Collaboration.pm b/lib/WebGUI/Asset/Wobject/Collaboration.pm index 400a5b318..c6b820037 100644 --- a/lib/WebGUI/Asset/Wobject/Collaboration.pm +++ b/lib/WebGUI/Asset/Wobject/Collaboration.pm @@ -874,9 +874,9 @@ in that case. =cut -sub commit { +override commit => sub { my $self = shift; - $self->next::method; + super(); my $cron = undef; if ($self->getMailCronId) { $cron = WebGUI::Workflow::Cron->new($self->session, $self->getMailCronId); @@ -898,7 +898,7 @@ sub commit { } else { $cron->set({enabled=>0,title=>$self->getTitle." ".$i18n->get("mail"), minuteOfHour=>"*/".($self->getMailInterval/60)}); } -} +}; #-------------------------------------------------------------------