more bug fixes

This commit is contained in:
JT Smith 2005-08-11 16:19:04 +00:00
parent a3e4cf1dd3
commit 7fae1e435d
3 changed files with 15 additions and 16 deletions

View file

@ -678,7 +678,7 @@ sub processPropertiesFromFormPost {
sub purge {
my $self = shift;
my $sth = WebGUI::SQL->read("select storageId from FileAsset where assetId=".quote($self->getId));
my $sth = WebGUI::SQL->read("select storageId from Post where assetId=".quote($self->getId));
while (my ($storageId) = $sth->array) {
WebGUI::Storage->get($storageId)->delete;
}