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

[ 1262002 ] no "next Thread" or "previous Thread" links

Browse source
This commit is contained in:
Matthew Wilson 2005-08-25 08:36:11 +00:00
parent 0ed0f15459
commit e976bfae67
1 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -115,8 +115,8 @@ sub definition {
sub DESTROY { sub DESTROY {
my $self = shift; my $self = shift;
return unless defined $self; return unless defined $self;
$self->{_next}->DESTROY if (exists $self->{_next}); $self->{_next}->DESTROY if (defined $self->{_next});
$self->{_previous}->DESTROY if (exists $self->{_previous}); $self->{_previous}->DESTROY if (defined $self->{_previous});
$self->SUPER::DESTROY; $self->SUPER::DESTROY;
} }
@ -177,9 +177,9 @@ Returns a thread object for the next (newer) thread in the same forum.
sub getNextThread { sub getNextThread {
my $self = shift; my $self = shift;
unless (exists $self->{_next}) { unless (defined $self->{_next}) {
my $sortBy = $self->getParent->getValue("sortBy"); my $sortBy = $self->getParent->getValue("sortBy");
my ($id, $class, $version) = WebGUI::SQL->quickHashRef(" my ($id, $class, $version) = WebGUI::SQL->quickArray("
select asset.assetId,asset.className,max(assetData.revisionDate) select asset.assetId,asset.className,max(assetData.revisionDate)
from Thread from Thread
left join asset on asset.assetId=Thread.assetId left join asset on asset.assetId=Thread.assetId
@ -197,8 +197,8 @@ sub getNextThread {
group by assetData.assetId group by assetData.assetId
order by ".$sortBy." asc order by ".$sortBy." asc
",WebGUI::SQL->getSlave); ",WebGUI::SQL->getSlave);
$self->{_next} = WebGUI::Asset::Post->new($id,$class,$version); $self->{_next} = WebGUI::Asset->new($id,$class,$version);
delete $self->{_next} unless ($self->{_next}->{_properties}{className} =~ /Thread/); # delete $self->{_next} unless ($self->{_next}->{_properties}{className} =~ /Thread/);
}; };
return $self->{_next}; return $self->{_next};
} }
@ -215,9 +215,9 @@ Returns a thread object for the previous (older) thread in the same forum.
sub getPreviousThread { sub getPreviousThread {
my $self = shift; my $self = shift;
unless (exists $self->{_previous}) { unless (defined $self->{_previous}) {
my $sortBy = $self->getParent->getValue("sortBy"); my $sortBy = $self->getParent->getValue("sortBy");
my ($id, $class, $version) = WebGUI::SQL->quickHashRef(" my ($id, $class, $version) = WebGUI::SQL->quickArray("
select asset.assetId,asset.className,max(assetData.revisionDate) select asset.assetId,asset.className,max(assetData.revisionDate)
from Thread from Thread
left join asset on asset.assetId=Thread.assetId left join asset on asset.assetId=Thread.assetId
@ -234,8 +234,8 @@ sub getPreviousThread {
) )
group by assetData.assetId group by assetData.assetId
order by ".$sortBy." desc, assetData.revisionDate desc ",WebGUI::SQL->getSlave); order by ".$sortBy." desc, assetData.revisionDate desc ",WebGUI::SQL->getSlave);
$self->{_previous} = WebGUI::Asset::Post->new($id,$class,$version); $self->{_previous} = WebGUI::Asset::Post::Thread->new($id,$class,$version);
delete $self->{_previous} unless ($self->{_previous}->{_properties}{className} =~ /Thread/); # delete $self->{_previous} unless ($self->{_previous}->{_properties}{className} =~ /Thread/);
}; };
return $self->{_previous}; return $self->{_previous};
} }