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

Moose overrides for purge, purgeRevision, and purgeCache.

Browse source
This commit is contained in:
Colin Kuskie 2010-04-07 16:43:16 -07:00
parent 7ba89245fa
commit 616d5cc866
36 changed files with 139 additions and 192 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lib/WebGUI/Asset/Story.pm
View file

@ -634,7 +634,7 @@ Cleaning up all storage objects in all revisions.
=cut
sub purge {
override purge => sub {
my $self = shift;
##Delete all storage locations from all revisions of the Asset
my $sth = $self->session->db->read("select photo from Story where assetId=?",[$self->getId]);
@ -647,8 +647,8 @@ sub purge {
}
}
$sth->finish;
return $self->next::method;
}
return super();
};
#-------------------------------------------------------------------
@ -658,15 +658,15 @@ Remove the storage locations for this revision of the Asset.
=cut
sub purgeRevision {
override purgeRevision => sub {
my $self = shift;
my $session = $self->session;
foreach my $photo ( @{ $self->getPhotoData} ) {
my $storage = WebGUI::Storage->get($session, $self-$photo->{storageId});
$storage->delete if $storage;
}
return $self->next::method;
}
return super();
};
#-------------------------------------------------------------------