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

fixed some Gallery tests failing. removed some unnecessary ones. still bunch more to go...

Browse source
This commit is contained in:
Doug Bell 2007-12-19 16:41:39 +00:00
parent 17e815281f
commit 01c6379224
8 changed files with 189 additions and 227 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lib/WebGUI/Asset/File/Image/Photo.pm
View file

@ -602,6 +602,24 @@ sub processStyle {
#----------------------------------------------------------------------------
=head2 purge ( )
Purge the asset. Remove all comments on the photo.
=cut
sub purge {
my $self = shift;
for my $commentId ( @{ $self->getCommentIds } ) {
$self->deleteComment( $commentId );
}
return $self->SUPER::purge;
}
#----------------------------------------------------------------------------
=head2 setComment ( commentId, properties )
Set a comment. If C<commentId> is C<"new">, create a new comment. C<properties>
@ -618,6 +636,11 @@ sub setComment {
unless $commentId;
croak "Photo->setComment: properties must be a hash reference"
unless $properties && ref $properties eq "HASH";
croak "Photo->setComment: properties must contain a bodyText key"
unless $properties->{ bodyText };
$properties->{ creationDate } ||= WebGUI::DateTime->new($self->session, time)->toDatabase;
$properties->{ assetId } = $self->getId;
$self->session->db->setRow(
"Photo_comment", "commentId",