removing trace

This commit is contained in:
Kaleb Murphy 2009-02-27 18:39:38 +00:00
parent f275024f67
commit 91b49f96b0
2 changed files with 20 additions and 1 deletions

View file

@ -296,7 +296,6 @@ will be used to instantiate the SurveyJSON instance rather than querying the dat
sub surveyJSON {
my $self = shift;
$self->session->errorHandler->error("surveyJSON was calle, wtf");
my ($json) = validate_pos(@_, { type => SCALAR, optional => 1 });
if (!$self->{_surveyJSON} || $json) {

View file

@ -0,0 +1,20 @@
package WebGUI::Asset::Wobject::Survey::SurveyQuestionBundles;
use base WebGUI::Crud;
sub crud_definition {
my ( $class, $session ) = @_;
my $definition = $class->SUPER::crud_definition($session);
$definition->{tableName} = 'Survey_questionBundles';
$definition->{tableKey} = 'assetId';
$definition->{properties}{} = {
fieldType => 'text',
defaultValue => undef,
};
$definition->{properties}{} = {
fieldType => 'text',
defaultValue => undef,
};
return $definition;
}