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

added manual thread archive/unarchive options

Browse source
This commit is contained in:
JT Smith 2006-02-26 20:31:46 +00:00
parent 357794959a
commit 5fe11ed251
6 changed files with 137 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lib/WebGUI/Workflow/Activity/ArchiveOldPosts.pm → lib/WebGUI/Workflow/Activity/ArchiveOldThreads.pm
View file

@ -1,4 +1,4 @@
package WebGUI::Workflow::Activity::ArchiveOldPosts;
package WebGUI::Workflow::Activity::ArchiveOldThreads;
=head1 LEGAL
@ -17,6 +17,7 @@ package WebGUI::Workflow::Activity::ArchiveOldPosts;
use strict;
use base 'WebGUI::Workflow::Activity';
use WebGUI::Asset;
=head1 NAME
@ -71,16 +72,20 @@ sub execute {
my $epoch = $self->session->datetime->time();
my $a = $self->session->db->read("select assetId from asset where className='WebGUI::Asset::Wobject::Collaboration'");
while (my ($assetId) = $a->array) {
my $cs = WebGUI::Asset::Wobject::Collaboration->new($assetId);
my $cs = WebGUI::Asset->new($assetId, "WebGUI::Asset::Wobject::Collaboration");
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
where Post.dateUpdated<? and assetData.status='approved' and asset.state='published'
and asset.lineage like ?";
and Post.threadId=Post.assetId and asset.lineage like ?";
my $b = $self->session->db->read($sql,[$archiveDate, $cs->get("lineage").'%']);
while (my ($id, $version) = $b->array) {
my $post = WebGUI::Asset::Post->new($id,undef,$version);
$post->setStatusArchived if (defined $post && $post->get("dateUpdated") < $archiveDate);
my $thread = WebGUI::Asset->new($id, "WebGUI::Asset::Post::Thread", $version);
my $archiveIt = 1;
foreach my $post (@{$thread->getPosts}) {
$archiveIt = 0 if (defined $post && $post->get("dateUpdated") > $archiveDate);
}
$thread->archive if ($archiveIt);
}
$b->finish;
}