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

Sessionize addChild

Browse source
This commit is contained in:
Colin Kuskie 2010-01-13 10:30:29 -08:00
parent e0089f37f8
commit 22823339ab
1 changed files with 11 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lib/WebGUI/AssetLineage.pm
View file

@ -66,29 +66,30 @@ If this is set to 1 assets that normally autocommit their workflows (like CS Pos
sub addChild { sub addChild {
my $self = shift; my $self = shift;
my $session = $self->session;
my $properties = shift; my $properties = shift;
my $id = shift || $self->session->id->generate(); my $id = shift || $session->id->generate();
my $now = shift || $self->session->datetime->time(); my $now = shift || $session->datetime->time();
my $options = shift; my $options = shift;
# Check if it is possible to add a child to this asset. If not add it as a sibling of this asset. # Check if it is possible to add a child to this asset. If not add it as a sibling of this asset.
if (length($self->get("lineage")) >= 252) { if (length($self->get("lineage")) >= 252) {
$self->session->errorHandler->warn('Tried to add child to asset "'.$self->getId.'" which is already on the deepest level. Adding it as a sibling instead.'); $session->errorHandler->warn('Tried to add child to asset "'.$self->getId.'" which is already on the deepest level. Adding it as a sibling instead.');
return $self->getParent->addChild($properties, $id, $now, $options); return $self->getParent->addChild($properties, $id, $now, $options);
} }
my $lineage = $self->get("lineage").$self->getNextChildRank; my $lineage = $self->get("lineage").$self->getNextChildRank;
$self->{_hasChildren} = 1; $self->{_hasChildren} = 1;
$self->session->db->beginTransaction; $session->db->beginTransaction;
$self->session->db->write("insert into asset (assetId, parentId, lineage, creationDate, createdBy, className, state) values (?,?,?,?,?,?,'published')", $session->db->write("insert into asset (assetId, parentId, lineage, creationDate, createdBy, className, state) values (?,?,?,?,?,?,'published')",
[$id,$self->getId,$lineage,$now,$self->session->user->userId,$properties->{className}]); [$id,$self->getId,$lineage,$now,$session->user->userId,$properties->{className}]);
$self->session->db->commit; $session->db->commit;
$properties->{assetId} = $id; $properties->{assetId} = $id;
$properties->{parentId} = $self->getId; $properties->{parentId} = $self->getId;
my $temp = WebGUI::Asset->newByPropertyHashRef($self->session,$properties) || croak "Couldn't create a new $properties->{className} asset!"; my $temp = WebGUI::Asset->new($session,$properties) || croak "Couldn't create a new $properties->{className} asset!";
$temp->{_parent} = $self; $temp->{_parent} = $self;
my $newAsset = $temp->addRevision($properties, $now, $options); my $newAsset = $temp->addRevision($properties, $now, $options);
$self->updateHistory("added child ".$id); $self->updateHistory("added child ".$id);
$self->session->http->setStatus(201,"Asset Creation Successful"); $session->http->setStatus(201,"Asset Creation Successful");
return $newAsset; return $newAsset;
} }