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

more bug fixes

Browse source
This commit is contained in:
JT Smith 2005-08-18 19:20:08 +00:00
parent c456b708de
commit 8664a34f1e
7 changed files with 16 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

10
sbin/Hourly/ArchiveOldPosts.pm
View file

@ -23,12 +23,12 @@ sub process {
my $a = WebGUI::SQL->read("select asset.lineage,Collaboration.archiveAfter from Collaboration left join asset on Collaboration.assetId=asset.assetId");
while (my ($lineage, $archiveAfter) = $a->array) {
my $archiveDate = $epoch - $archiveAfter;
my $sql = "select * from Post left join asset on Post.assetId=asset.assetId left join Thread on Thread.assetId=Post.assetId
where Post.dateUpdated<$archiveDate and Post.status='approved' and asset.lineage like ".quote($lineage."%");
my $sql = "select asset.assetId,asset.className, max(assetData.revisionDate) from Post left join asset on Post.assetId=asset.assetId
left join assetData on Post.assetId=assetData.assetId and assetData.revisionDate=Post.revisionDate
where Post.dateUpdated<$archiveDate and assetData.status='approved' and asset.lineage like ".quote($lineage."%")." group by asset.assetId";
my $b = WebGUI::SQL->read($sql);
while (my $properties = $b->hashRef) {
my $post = WebGUI::Asset::Post->newByPropertyHashRef($properties);
$post->setStatusArchived;
while (my ($id, $class, $version) = $b->array) {
WebGUI::Asset::Post->new($id,$class,$version)->setStatusArchived;
}
$b->finish;
}