diff --git a/lib/WebGUI/Asset/Wobject/Survey.pm b/lib/WebGUI/Asset/Wobject/Survey.pm index 397cc5123..773609dd8 100644 --- a/lib/WebGUI/Asset/Wobject/Survey.pm +++ b/lib/WebGUI/Asset/Wobject/Survey.pm @@ -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) { diff --git a/lib/WebGUI/Asset/Wobject/Survey/SurveyQuestionBundles.pm b/lib/WebGUI/Asset/Wobject/Survey/SurveyQuestionBundles.pm new file mode 100644 index 000000000..e1d05cd36 --- /dev/null +++ b/lib/WebGUI/Asset/Wobject/Survey/SurveyQuestionBundles.pm @@ -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; +} +