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

article forum migration complete

Browse source
This commit is contained in:
JT Smith 2005-02-12 21:18:23 +00:00
parent e6ca0fa19e
commit 949ea2d6cf
5 changed files with 279 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/Asset.pm
View file

@ -1848,14 +1848,6 @@ sub purge {
}
WebGUI::SQL->write("delete from metaData_values where assetId = ".quote($self->getId));
WebGUI::SQL->commit;
# eliminate anything bound to this asset
my $sth = WebGUI::SQL->read("select assetId,className from asset where boundToId=".quote($self->getId));
while (my ($id, $class) = $sth->array) {
my $asset = WebGUI::Asset->newByDynamicClass($id,$class);
if (defined $asset) {
$asset->purgeTree;
}
}
$self = undef;
return 1;
}