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

Moose override commit in Thread and CS.

Browse source
This commit is contained in:
Colin Kuskie 2010-04-06 19:30:35 -07:00
parent 45b6f45e4b
commit 794b26d325
2 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -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.

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

@ -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)});
}
}
};
#-------------------------------------------------------------------