last reply column

This commit is contained in:
JT Smith 2006-05-17 22:09:28 +00:00
parent d1a9fced77
commit d5a9ead068
2 changed files with 11 additions and 3 deletions

View file

@ -52,6 +52,16 @@ sub canSubscribe {
return ($self->session->user->userId ne "1" && $self->canView);
}
#-------------------------------------------------------------------
sub commit {
my $self = shift;
$self->SUPER::commit;
if ($self->isNew) {
$self->getParent->incrementThreads($self->get("dateUpdated"),$self->getId);
}
}
#-------------------------------------------------------------------
sub createSubscriptionGroup {
my $self = shift;
@ -524,9 +534,6 @@ sub prepareView {
sub processPropertiesFromFormPost {
my $self = shift;
$self->SUPER::processPropertiesFromFormPost;
if ($self->session->form->process("assetId") eq "new") {
$self->getParent->incrementThreads($self->get("dateUpdated"),$self->getId) unless ($self->isReply);
}
if ($self->getParent->canEdit) {
my $karmaScale = $self->session->form->process("karmaScale","integer") || $self->getParent->get("defaultKarmaScale");
my $karmaRank = $self->get("karma")/$karmaScale;