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

fix: Collaboration System can now be subclassed and still work with existing Thread and Post assets

Browse source
This commit is contained in:
Doug Bell 2007-07-02 22:25:41 +00:00
parent 8a88823682
commit 65235990a3
3 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/Asset/Post.pm
View file

@ -71,7 +71,7 @@ sub addRevision {
my $threadId = $newSelf->get("threadId");
my $now = time();
if ($threadId eq "") { # new post
if ($newSelf->getParent->get("className") eq "WebGUI::Asset::Wobject::Collaboration") {
if ($newSelf->getParent->isa("WebGUI::Asset::Wobject::Collaboration")) {
$newSelf->update({threadId=>$newSelf->getId, dateSubmitted=>$now});
} else {
$newSelf->update({threadId=>$newSelf->getParent->get("threadId"), dateSubmitted=>$now});
@ -566,7 +566,7 @@ sub getThread {
unless (defined $self->{_thread}) {
my $threadId = $self->get("threadId");
if ($threadId eq "") { # new post
if ($self->getParent->get("className") eq "WebGUI::Asset::Wobject::Collaboration") {
if ($self->getParent->isa("WebGUI::Asset::Wobject::Collaboration")) {
$threadId=$self->getId;
} else {
$threadId=$self->getParent->get("threadId");

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

@ -631,7 +631,7 @@ An asset object to make the parent of this asset.
sub setParent {
my $self = shift;
my $newParent = shift;
return 0 unless ($newParent->get("className") eq "WebGUI::Asset::Wobject::Collaboration");
return 0 unless ($newParent->isa("WebGUI::Asset::Wobject::Collaboration"));
# specify the Asset package here directly because we don't want to use the ruls in WebGUI::Asset::Post, as they don't fit for Threads.
return $self->WebGUI::Asset::setParent($newParent);
}