diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt index 64fafacff..f92f84287 100644 --- a/docs/changelog/7.x.x.txt +++ b/docs/changelog/7.x.x.txt @@ -1,6 +1,7 @@ 7.4.9 - fix: Bug that did not allow Calendar Update Feeds workflow activity to complete + - fix: purging old asset revisions on large sites never completes 7.4.8 - fix: Syndicated Content doesn't display all items with multiple feeds in interleaved mode diff --git a/lib/WebGUI/Workflow/Activity/PurgeOldAssetRevisions.pm b/lib/WebGUI/Workflow/Activity/PurgeOldAssetRevisions.pm index 36db100de..3f02cc400 100644 --- a/lib/WebGUI/Workflow/Activity/PurgeOldAssetRevisions.pm +++ b/lib/WebGUI/Workflow/Activity/PurgeOldAssetRevisions.pm @@ -84,8 +84,7 @@ sub execute { # figure out if we left off somewhere my $lastRunVersion = $instance->getScratch("purgeOldAssetsLastRevisionDate"); - my $suspectDate = time() - $self->get("purgeAfter"); - $suspectDate = ($suspectDate > $lastRunVersion) ? $suspectDate : $lastRunVersion; + my $suspectDate = ($lastRunVersion > 0) ? $lastRunVersion : (time() - $self->get("purgeAfter")); # the query to find old revisions my $sth = $session->db->read("select assetData.assetId,asset.className,assetData.revisionDate from asset