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

fix PurgeOldAssetRevisions Workflow Activity.

Browse source
This commit is contained in:
Colin Kuskie 2010-01-27 22:11:42 -08:00
parent 360e6be6c5
commit 872dcfceab
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lib/WebGUI/Workflow/Activity/PurgeOldAssetRevisions.pm
View file

@ -18,6 +18,7 @@ package WebGUI::Workflow::Activity::PurgeOldAssetRevisions;
use strict;
use base 'WebGUI::Workflow::Activity';
use WebGUI::Asset;
use WebGUI::Exception;
=head1 NAME
@ -99,16 +100,16 @@ sub execute {
}
# instanciate and purge
my $asset = WebGUI::Asset->new($session, $id,$class,$version);
if (defined $asset) {
my $asset = eval { WebGUI::Asset->newById($session, $id, $version); };
if (Exception::Class->caught()) {
$log->error("Could not instanciate asset $id $class $version perhaps it is corrupt.")
}
else {
if ($asset->getRevisionCount("approved") > 1) {
$log->info("Purging revision $version for asset $id.");
$asset->purgeRevision;
}
}
else {
$log->error("Could not instanciate asset $id $class $version perhaps it is corrupt.")
}
}
# give up if we're taking too long
if (time() - $start > $ttl) {