more bug fixes
This commit is contained in:
parent
a3e4cf1dd3
commit
7fae1e435d
3 changed files with 15 additions and 16 deletions
|
|
@ -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;
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue