fixing versioning bugs

This commit is contained in:
JT Smith 2005-08-08 14:28:04 +00:00
parent 6c16aa1577
commit 7eef970cd1
8 changed files with 78 additions and 31 deletions

View file

@ -293,7 +293,15 @@ sub addAssetVersioning {
foreach my $field (qw(url groupIdView title menuTitle startDate endDate ownerUserId groupIdEdit synopsis newWindow isHidden isSystem encryptPage assetSize lastUpdated lastUpdatedBy isPackage extraHeadTags isPrototype)) {
WebGUI::SQL->write("alter table asset drop column $field");
}
# clean up the psuedo version tracking in files
$sth = WebGUI::SQL->read("select olderVersions from FileAsset");
while (my ($old) = $sth->array) {
foreach my $storageId (split("\n",$old)) {
WebGUI::Storage->get($storageId)->delete;
}
}
$sth->finish;
WebGUI::SQL->write("alter table FileAsset drop column olderVersions");
}
#-------------------------------------------------