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

11 more AssetLineage tests for various rank methods.

Browse source 
Have setParent update self's parentId for persistent code.
This commit is contained in:
Colin Kuskie 2007-04-14 00:50:35 +00:00
parent e894ed29ae
commit c9e2a8b9f3
2 changed files with 45 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/AssetLineage.pm
View file

@ -497,7 +497,7 @@ Returns a 6 digit number with leading zeros of the next rank a child will get.
sub getNextChildRank {
my $self = shift;
my ($lineage) = $self->session->db->quickArray("select max(lineage) from asset where parentId=".$self->session->db->quote($self->getId));
my ($lineage) = $self->session->db->quickArray("select max(lineage) from asset where parentId=?",[$self->getId]);
my $rank;
if (defined $lineage) {
$rank = $self->getRank($lineage);
@ -674,7 +674,8 @@ sub setParent {
$self->cascadeLineage($lineage);
$self->session->db->commit;
$self->updateHistory("moved to parent ".$newParent->getId);
$self->{_properties}{lineage} = $lineage;
$self->{_properties}{lineage} = $lineage;
$self->{_properties}{parentId} = $newParent->getId;
$self->purgeCache;
$self->{_parent} = $newParent;
return 1;