diff --git a/docs/migration.txt b/docs/migration.txt index 24ed0b9aa..5a1078b80 100644 --- a/docs/migration.txt +++ b/docs/migration.txt @@ -422,3 +422,8 @@ getEditForm now returns a WebGUI::FormBuilder object Show Performance Indicators ========================== This setting is removed, as the Plack debug console shows this for us. + +WebGUI::Asset::Wobject::Survey +========================== +The surveyJSON method conflicted with the new Moose accessor. In WebGUI 8, +the old surveyJSON is called getSurveyJSON. diff --git a/lib/WebGUI/Asset/Wobject/Survey.pm b/lib/WebGUI/Asset/Wobject/Survey.pm index 0c4a48786..2c01df7d2 100644 --- a/lib/WebGUI/Asset/Wobject/Survey.pm +++ b/lib/WebGUI/Asset/Wobject/Survey.pm @@ -2439,8 +2439,8 @@ Extend the base method to include custom question types added to this Survey. sub exportAssetData { my $self = shift; my $asset_data = $self->SUPER::exportAssetData(); - my $questions = $self->surveyJSON->questions(); - my $multiple_choice = $self->surveyJSON->multipleChoiceTypes(); + my $questions = $self->getSurveyJSON->questions(); + my $multiple_choice = $self->getSurveyJSON->multipleChoiceTypes(); my %question_types = (); my $get_question = $self->session->db->prepare('select answers from Survey_questionTypes where questionType=?'); foreach my $question (@{ $questions }) { diff --git a/t/Asset/Wobject/Survey/package.t b/t/Asset/Wobject/Survey/package.t index 8d161d1ec..3071b5f1b 100644 --- a/t/Asset/Wobject/Survey/package.t +++ b/t/Asset/Wobject/Survey/package.t @@ -27,7 +27,7 @@ my $import_node = WebGUI::Asset->getImportNode($session); my $survey = $import_node->addChild( { className => 'WebGUI::Asset::Wobject::Survey', } ); WebGUI::Test->addToCleanup($survey); -my $sJSON = $survey->surveyJSON; +my $sJSON = $survey->getSurveyJSON; # Load bare-bones survey, containing a single section (S0) $sJSON->update([0], { variable => 'S0' }); @@ -57,7 +57,7 @@ $asset_data->{question_types}->{fingers} = clone $asset_data->{question_types}-> $survey->importAssetCollateralData($asset_data); $survey = $survey->cloneFromDb; -my $multipleChoiceTypes = $survey->surveyJSON->multipleChoiceTypes; +my $multipleChoiceTypes = $survey->getSurveyJSON->multipleChoiceTypes; ok exists $multipleChoiceTypes->{fingers}, 'fingers type imported as package collateral data'; ok exists $multipleChoiceTypes->{toes}, 'still have toes, too';