added: Ability to enable / disable archiving per Collaboration System. fixed Mech tests again

This commit is contained in:
Doug Bell 2008-04-28 02:07:56 +00:00
parent 3316f2a0f4
commit aae6a32df4
6 changed files with 50 additions and 2 deletions

View file

@ -74,6 +74,7 @@ sub execute {
while (my ($assetId) = $a->array) {
my $cs = WebGUI::Asset->new($self->session, $assetId, "WebGUI::Asset::Wobject::Collaboration");
next unless defined $cs;
next unless $cs->get("archiveEnabled");
my $archiveDate = $epoch - $cs->get("archiveAfter");
my $sql = "select asset.assetId, assetData.revisionDate from Post left join asset on asset.assetId=Post.assetId
left join assetData on Post.assetId=assetData.assetId and Post.revisionDate=assetData.revisionDate