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

typo

Browse source
This commit is contained in:
Matthew Wilson 2005-12-05 22:05:04 +00:00
parent 2b0e209f69
commit 98eeffb616
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/AssetBranch.pm
View file

@ -78,7 +78,7 @@ Returns 1. Purges self and all descendants.
sub purgeBranch { sub purgeBranch {
my $self = shift; my $self = shift;
my $descendants = $self->getLineage(["self","descendants"],{returnObjects=>1, invertTree=>1, statesToInclude=>['published', 'cliboard', 'clipboard-limbo','trash','trash-limbo']}); my $descendants = $self->getLineage(["self","descendants"],{returnObjects=>1, invertTree=>1, statesToInclude=>['published', 'clipboard', 'clipboard-limbo','trash','trash-limbo']});
foreach my $descendant (@{$descendants}) { foreach my $descendant (@{$descendants}) {
$descendant->purge; $descendant->purge;
} }