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

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

@ -3,6 +3,11 @@
Firefox 1.5.
- Now that we're requiring Perl 5.8, don't need to do the hackery for WS
Client to work any longer.
- Fixed a major versioning system bug where when purging the last revision of
an asset, if it had children, the children were not purged with it. This
may have caused problems in some people's databases. If it has all you
need to do to fix it is upgrade to this release and then run
sbin/rebuildLineage.pl
6.8.0
- Switched Date::Manip to DateTime for better performance and more

9
docs/gotcha.txt
View file

@ -7,11 +7,18 @@ upgrading from one version to the next, or even between multiple
versions. Be sure to heed the warnings contained herein as they will
save you many hours of grief.
6.8.0
6.8.1
--------------------------------------------------------------------
* Before upgrading you must install the following new Perl modules:
Data::Structure::Util
* Fixed a major versioning system bug in this release where when purging
the last revision of an asset, if it had children, the children were
not purged with it. This may have caused problems in some people's
databases if they used any 6.7.x version or 6.8.0. If it has all you
need to do to fix it is upgrade to this release and then run
sbin/rebuildLineage.pl
6.8.0
--------------------------------------------------------------------

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;
}
}