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

Code to delete photos and their data.

Browse source
This commit is contained in:
Colin Kuskie 2009-03-23 05:11:01 +00:00
parent c8da6cfe26
commit 7b6ea1350f
2 changed files with 14 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -501,10 +501,17 @@ sub processPropertiesFromFormPost {
my $photoData = $self->getPhotoData; my $photoData = $self->getPhotoData;
my $numberOfPhotos = scalar @{ $photoData }; my $numberOfPhotos = scalar @{ $photoData };
##Post process photo data here. ##Post process photo data here.
foreach my $photoIndex (1..$numberOfPhotos) { PHOTO: foreach my $photoIndex (1..$numberOfPhotos) {
##TODO: Deletion check and storage cleanup ##TODO: Deletion check and storage cleanup
my $storageId = $photoData->[$photoIndex-1]->{storageId};
if ($form->process('deletePhoto'.$photoIndex)) {
my $storage = WebGUI::Storage->get($session, $storageId);
$storage->delete if $storage;
splice @{ $photoData }, $photoIndex-1, 1;
next PHOTO;
}
my $newPhoto = { my $newPhoto = {
storageId => $form->process('photo' .$photoIndex, 'image', $photoData->[$photoIndex-1]->{storageId}), storageId => $form->process('photo' .$photoIndex, 'image', ),
caption => $form->process('imgCaption'.$photoIndex, 'text'), caption => $form->process('imgCaption'.$photoIndex, 'text'),
alt => $form->process('imgAlt' .$photoIndex, 'text'), alt => $form->process('imgAlt' .$photoIndex, 'text'),
title => $form->process('imgTitle' .$photoIndex, 'text'), title => $form->process('imgTitle' .$photoIndex, 'text'),

10
t/Asset/Wobject/StoryTopic.t
View file

@ -191,9 +191,9 @@ cmp_deeply(
#---------------------------------------------------------------------------- #----------------------------------------------------------------------------
# Cleanup # Cleanup
END { END {
$archive->purge if $archive; # $archive->purge if $archive;
$topic->purge if $topic; # $topic->purge if $topic;
if ($versionTag) { # if ($versionTag) {
$versionTag->rollback; # $versionTag->rollback;
} # }
} }