- Added a --skipDelete option to upgrade.pl

- rfe: Approvers don't need to approve own changes
fixed a rare bug that could occur in archiving old threads
This commit is contained in:
JT Smith 2006-08-03 19:20:55 +00:00
parent 8ec18c957f
commit 61b70325f2
4 changed files with 37 additions and 18 deletions

View file

@ -73,6 +73,7 @@ sub execute {
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->new($self->session, $assetId, "WebGUI::Asset::Wobject::Collaboration");
next unless defined $cs;
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