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

More _properties work, converted into proper methods.

Browse source
This commit is contained in:
Colin Kuskie 2010-01-14 16:41:23 -08:00
parent 7ee588c38e
commit d47438d9ae
2 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/AssetClipboard.pm
View file

@ -66,7 +66,7 @@ sub cut {
$session->db->write("update asset set state='clipboard-limbo' where lineage like ? and state='published'",[$self->get("lineage").'%']);
$session->db->write("update asset set state='clipboard', stateChangedBy=?, stateChanged=? where assetId=?", [$session->user->userId, $session->datetime->time(), $self->getId]);
$session->db->commit;
$self->{_properties}{state} = "clipboard";
$self->state("clipboard");
foreach my $asset ($self, @{$self->getLineage(['descendants'], {returnObjects => 1})}) {
$asset->purgeCache;
$asset->updateHistory('cut');

10
lib/WebGUI/AssetLineage.pm
View file

@ -184,7 +184,7 @@ sub demote {
where parentId=? and state='published' and lineage>?",[$self->get('parentId'), $self->get('lineage')]);
if (defined $sisterLineage) {
$self->swapRank($sisterLineage, undef, $outputSub);
$self->{_properties}{lineage} = $sisterLineage;
$self->lineage($sisterLineage);
return 1;
}
return 0;
@ -851,7 +851,7 @@ sub promote {
where parentId=? and state='published' and lineage<?",[$self->get("parentId"), $self->get("lineage")]);
if (defined $sisterLineage) {
$self->swapRank($sisterLineage, undef, $outputSub);
$self->{_properties}{lineage} = $sisterLineage;
$self->lineage($sisterLineage);
return 1;
}
return 0;
@ -885,8 +885,8 @@ sub setParent {
$self->cascadeLineage($lineage);
$self->session->db->commit;
$self->updateHistory("moved to parent ".$newParent->getId);
$self->{_properties}{lineage} = $lineage;
$self->{_properties}{parentId} = $newParent->getId;
$self->lineage($lineage);
$self->parentId($newParent->getId);
$self->purgeCache;
$self->{_parent} = $newParent;
return 1;
@ -934,7 +934,7 @@ sub setRank {
}
$outputSub->('moving %s back', $self->getTitle);
$self->cascadeLineage($previous,$temp);
$self->{_properties}{lineage} = $previous;
$self->lineage($previous);
$self->session->db->commit;
$self->purgeCache;
$self->updateHistory("changed rank");