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

fix: purge old asset revisions could purge the most recent revision if the

Browse source 
database had some referential integrity probems
This commit is contained in:
JT Smith 2007-07-30 18:41:39 +00:00
parent 265400a010
commit 1e9e4d810f
4 changed files with 82 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

34
lib/WebGUI/AssetVersioning.pm
View file

@ -178,6 +178,40 @@ sub getAutoCommitWorkflowId {
#-------------------------------------------------------------------
=head2 getCurrentRevisionDate ( session, assetId )
This is a class method. Returns the revision date for the revision of the specified asset that is the currently
published revision for the version tag that we're currently operating under. If no version tag, then the revision
that will be displayed publicly is the one returned.
=head3 session
A session object.
=head3 assetId
The unique identifier for an asset.
=cut
sub getCurrentRevisionDate {
my $class = shift;
my $session = shift;
my $assetId = shift;
my $assetRevision = $session->stow->get("assetRevision");
my $revisionDate = $assetRevision->{$assetId}{$session->scratch->get("versionTag")||'_'};
unless ($revisionDate) {
($revisionDate) = $session->db->quickArray("select max(revisionDate) from assetData where assetId=? and
(status='approved' or status='archived' or tagId=?) order by assetData.revisionDate",
[$assetId, $session->scratch->get("versionTag")]);
$assetRevision->{$assetId}{$session->scratch->get("versionTag")||'_'} = $revisionDate;
$session->stow->set("assetRevision",$assetRevision);
}
return $revisionDate;
}
#-------------------------------------------------------------------
=head2 getRevisionCount ( [ status ] )
Returns the number of revisions available for this asset.