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

fixed major versioning bug

Browse source
This commit is contained in:
JT Smith 2005-12-05 21:22:03 +00:00
parent 18a13f0385
commit 2b0e209f69
4 changed files with 15 additions and 3 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 {
my $self = shift;
my $descendants = $self->getLineage(["self","descendants"],{returnObjects=>1, invertTree=>1, statesToInclude=>['trash','trash-limbo']});
my $descendants = $self->getLineage(["self","descendants"],{returnObjects=>1, invertTree=>1, statesToInclude=>['published', 'cliboard', 'clipboard-limbo','trash','trash-limbo']});
foreach my $descendant (@{$descendants}) {
$descendant->purge;
}

2
lib/WebGUI/AssetVersioning.pm
View file

@ -210,7 +210,7 @@ sub purgeRevision {
$self->purgeCache;
$self->updateHistory("purged revision ".$self->get("revisionDate"));
} else {
$self->purge;
$self->purgeBranch;
}
}