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

SUPER fixing for Thread.

Browse source
This commit is contained in:
Colin Kuskie 2010-04-08 17:32:43 -07:00
parent e0b5f79d6d
commit b9d102fc31
1 changed files with 18 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -191,9 +191,9 @@ to update the Thread with the lastPost information.
=cut =cut
sub duplicateBranch { override duplicateBranch => sub {
my $self = shift; my $self = shift;
my $newAsset = $self->SUPER::duplicateBranch(@_); my $newAsset = super();
foreach my $post (@{$newAsset->getPosts}) { foreach my $post (@{$newAsset->getPosts}) {
$post->rethreadUnder($newAsset); $post->rethreadUnder($newAsset);
@ -201,7 +201,7 @@ sub duplicateBranch {
$newAsset->normalizeLastPost; $newAsset->normalizeLastPost;
return $newAsset; return $newAsset;
} };
#------------------------------------------------------------------- #-------------------------------------------------------------------
@ -235,13 +235,13 @@ and next threads, and to delete the parent CS.
=cut =cut
sub DESTROY { override DESTROY => sub {
my $self = shift; my $self = shift;
return undef unless defined $self; return undef unless defined $self;
$self->{_next}->DESTROY if (defined $self->{_next}); $self->{_next}->DESTROY if (defined $self->{_next});
$self->{_previous}->DESTROY if (defined $self->{_previous}); $self->{_previous}->DESTROY if (defined $self->{_previous});
$self->SUPER::DESTROY; super();
} };
#------------------------------------------------------------------- #-------------------------------------------------------------------
@ -657,15 +657,15 @@ Extend the base method from Post to process the karmaScale.
=cut =cut
sub postProcess { override postProcess => sub {
my $self = shift; my $self = shift;
if ($self->getParent->canEdit) { if ($self->getParent->canEdit) {
my $karmaScale = $self->session->form->process("karmaScale","integer") || $self->getParent->defaultKarmaScale; my $karmaScale = $self->session->form->process("karmaScale","integer") || $self->getParent->defaultKarmaScale;
my $karmaRank = $self->karma/$karmaScale; my $karmaRank = $self->karma/$karmaScale;
$self->update({karmaScale=>$karmaScale, karmaRank=>$karmaRank}); $self->update({karmaScale=>$karmaScale, karmaRank=>$karmaRank});
} }
$self->SUPER::postProcess; super();
} };
#------------------------------------------------------------------- #-------------------------------------------------------------------
@ -675,7 +675,7 @@ Extend the base method to do captcha processing.
=cut =cut
sub processPropertiesFromFormPost { override processPropertiesFromFormPost => sub {
my $self = shift; my $self = shift;
if ($self->isNew && $self->getParent->useCaptcha) { if ($self->isNew && $self->getParent->useCaptcha) {
@ -684,8 +684,8 @@ sub processPropertiesFromFormPost {
return [ 'invalid captcha' ] unless $captchaOk; return [ 'invalid captcha' ] unless $captchaOk;
} }
return $self->SUPER::processPropertiesFromFormPost; return super();
} };
#------------------------------------------------------------------- #-------------------------------------------------------------------
@ -718,12 +718,12 @@ An integer between 1 and 5 (5 being best) to rate this post with.
=cut =cut
sub rate { override rate => sub {
my $self = shift; my $self = shift;
my $rating = shift; my $rating = shift;
return undef unless ($rating == -1 || $rating == 1); return undef unless ($rating == -1 || $rating == 1);
return undef if $self->hasRated; return undef if $self->hasRated;
$self->SUPER::rate($rating); super();
##Thread specific karma adjustment for CS ##Thread specific karma adjustment for CS
if ($self->session->setting->get("useKarma")) { if ($self->session->setting->get("useKarma")) {
@ -733,7 +733,7 @@ sub rate {
$rater->karma(-$self->getParent->karmaSpentToRate,"collaboration rating","spent karma to rate post ".$self->getId); $rater->karma(-$self->getParent->karmaSpentToRate,"collaboration rating","spent karma to rate post ".$self->getId);
} }
} };
#------------------------------------------------------------------- #-------------------------------------------------------------------
@ -848,9 +848,9 @@ Moves thread to the trash and updates reply counter on thread.
=cut =cut
sub trash { override trash => sub {
my $self = shift; my $self = shift;
$self->SUPER::trash; super();
$self->getParent->sumReplies; $self->getParent->sumReplies;
if ($self->getParent->lastPostId eq $self->getId) { if ($self->getParent->lastPostId eq $self->getId) {
my $parentLineage = $self->getThread->lineage; my $parentLineage = $self->getThread->lineage;
@ -864,7 +864,7 @@ sub trash {
$self->getParent->setLastPost('',''); $self->getParent->setLastPost('','');
} }
} }
} };
#------------------------------------------------------------------- #-------------------------------------------------------------------