Convert Comments role to use Types. Build a test for it.

This commit is contained in:
Colin Kuskie 2010-03-18 15:06:17 -07:00
parent 1363a8627a
commit a8496c4d15
2 changed files with 89 additions and 9 deletions

View file

@ -16,6 +16,7 @@ package WebGUI::Role::Asset::Comments;
use Moose::Role;
use WebGUI::Definition::Asset;
use WebGUI::Types;
define tableName => 'assetAspectComments';
property comments => (
noFormPost => 1,
@ -31,7 +32,6 @@ property averageCommentRating => (
default => 0,
);
use JSON;
use WebGUI::Exception;
use WebGUI::Form;
use WebGUI::HTML;
@ -131,14 +131,6 @@ sub canComment {
}
#-------------------------------------------------------------------
=head2 definition
Extends the definition to add the comments and averageCommentRating fields.
=cut
#-------------------------------------------------------------------
=head2 deleteComment ( id )