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

eliminated the purgeBranch method, cuz purge() should always do that anyway.

Browse source
This commit is contained in:
JT Smith 2006-02-15 04:31:29 +00:00
parent a4578d1d7d
commit 18e24618e7
4 changed files with 8 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lib/WebGUI/AssetBranch.pm
View file

@ -67,24 +67,6 @@ sub duplicateBranch {
}
#-------------------------------------------------------------------
=head2 purgeBranch ( )
Returns 1. Purges self and all descendants.
=cut
sub purgeBranch {
my $self = shift;
my $descendants = $self->getLineage(["self","descendants"],{returnObjects=>1, invertTree=>1, statesToInclude=>['published', 'clipboard', 'clipboard-limbo','trash','trash-limbo']});
foreach my $descendant (@{$descendants}) {
$descendant->purge;
}
return 1;
}
#-------------------------------------------------------------------
=head2 www_editBranch ( )