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

duplicateBranch copies source and then sets parent to the destination

Browse source
This commit is contained in:
Colin Kuskie 2006-02-24 00:35:19 +00:00
parent 3f55240237
commit d669e20083
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
docs/changelog/6.x.x.txt
View file

@ -40,6 +40,9 @@
- [ 1433525 ] 6.9: Compilation errors - [ 1433525 ] 6.9: Compilation errors
- base36 removed from Utility.t because it no longer exists in WebGUI::Utility.pm - base36 removed from Utility.t because it no longer exists in WebGUI::Utility.pm
6.8.7
- fix [ 1437186 ] 6.8.7 deploy DataForm package does not copy fields
6.8.7 6.8.7
- fix [ 1431098 ] op=becomeUser can become non-existent userIds - fix [ 1431098 ] op=becomeUser can become non-existent userIds
- fix [ 1431944 ] 6.8.6 DataForm moving fields - fix [ 1431944 ] 6.8.6 DataForm moving fields

3
lib/WebGUI/AssetBranch.pm
View file

@ -51,7 +51,8 @@ The asset to duplicate. Defaults to self.
sub duplicateBranch { sub duplicateBranch {
my $self = shift; my $self = shift;
my $assetToDuplicate = shift || $self; my $assetToDuplicate = shift || $self;
my $newAsset = $self->duplicate($assetToDuplicate); my $newAsset = $assetToDuplicate->duplicate();
$newAsset->setParent($self);
my $contentPositions; my $contentPositions;
$contentPositions = $assetToDuplicate->get("contentPositions"); $contentPositions = $assetToDuplicate->get("contentPositions");
foreach my $child (@{$assetToDuplicate->getLineage(["children"],{returnObjects=>1})}) { foreach my $child (@{$assetToDuplicate->getLineage(["children"],{returnObjects=>1})}) {