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

all functions complete

Browse source 
-- pre-polish check point
This commit is contained in:
David Delikat 2009-03-24 21:13:13 +00:00
parent efbe79e365
commit e0ef9d3c6e
2 changed files with 15 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/AdSpace/Ad.pm
View file

@ -81,11 +81,11 @@ Deletes this ad.
sub delete {
my $self = shift;
my $iterator = WebGUI::AssetCollateral::Sku::Ad::Ad->getAllIterator($session,{
my $iterator = WebGUI::AssetCollateral::Sku::Ad::Ad->getAllIterator($self->session,{
constraints => [ { "adSkuPurchase.adId = ?" => $self->getId } ],
});
while( my $object = $iterator->() ) {
$object->update('isDeleted' => 1);
$object->update({'isDeleted' => 1});
}
my $storage = WebGUI::Storage->get($self->session, $self->get("storageId"));
$storage->delete if defined $storage;