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

Fix POD in duplicateBranch, tidy the code.

Browse source
This commit is contained in:
Colin Kuskie 2009-09-05 10:03:26 -07:00
parent 6b1fde7038
commit 9e2cdbdc4b
1 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lib/WebGUI/AssetBranch.pm
View file

@ -38,30 +38,34 @@ These methods are available from this class:
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 duplicateBranch ( ) =head2 duplicateBranch ( [ $childrenOnly ] )
Duplicates this asset and the entire subtree below it. Returns the root of the new subtree. Duplicates this asset and the entire subtree below it. Returns the root of the new subtree.
=head3 $childrenOnly
If true, then only children, and not descendants, will be duplicated.
=cut =cut
sub duplicateBranch { sub duplicateBranch {
my $self = shift; my $self = shift;
my $childrenOnly = shift || 0; my $childrenOnly = shift;
my $newAsset = $self->duplicate({skipAutoCommitWorkflows=>1,skipNotification=>1}); my $newAsset = $self->duplicate({skipAutoCommitWorkflows=>1,skipNotification=>1});
my $contentPositions = $self->get("contentPositions"); my $contentPositions = $self->get("contentPositions");
my $assetsToHide = $self->get("assetsToHide"); my $assetsToHide = $self->get("assetsToHide");
foreach my $child (@{$self->getLineage(["children"],{returnObjects=>1})}) { foreach my $child (@{$self->getLineage(["children"],{returnObjects=>1})}) {
my $newChild = $childrenOnly ? $child->duplicate({skipAutoCommitWorkflows=>1, skipNotification=>1}) : $child->duplicateBranch; my $newChild = $childrenOnly ? $child->duplicate({skipAutoCommitWorkflows=>1, skipNotification=>1}) : $child->duplicateBranch;
$newChild->setParent($newAsset); $newChild->setParent($newAsset);
my ($oldChildId, $newChildId) = ($child->getId, $newChild->getId); my ($oldChildId, $newChildId) = ($child->getId, $newChild->getId);
$contentPositions =~ s/\Q${oldChildId}\E/${newChildId}/g if ($contentPositions); $contentPositions =~ s/\Q${oldChildId}\E/${newChildId}/g if ($contentPositions);
$assetsToHide =~ s/\Q${oldChildId}\E/${newChildId}/g if ($assetsToHide); $assetsToHide =~ s/\Q${oldChildId}\E/${newChildId}/g if ($assetsToHide);
} }
$newAsset->update({contentPositions=>$contentPositions}) if $contentPositions; $newAsset->update({contentPositions=>$contentPositions}) if $contentPositions;
$newAsset->update({assetsToHide=>$assetsToHide}) if $assetsToHide; $newAsset->update({assetsToHide=>$assetsToHide}) if $assetsToHide;
return $newAsset; return $newAsset;
} }