diff --git a/docs/upgrades/packages-7.7.6/root_import_survey_default-answer-edit.wgpkg b/docs/upgrades/packages-7.7.6/root_import_survey_default-answer-edit.wgpkg index 2201e358d..581818c37 100644 Binary files a/docs/upgrades/packages-7.7.6/root_import_survey_default-answer-edit.wgpkg and b/docs/upgrades/packages-7.7.6/root_import_survey_default-answer-edit.wgpkg differ diff --git a/lib/WebGUI/Asset/Wobject/Survey/SurveyJSON.pm b/lib/WebGUI/Asset/Wobject/Survey/SurveyJSON.pm index fc1740ec0..2fcca7a5b 100644 --- a/lib/WebGUI/Asset/Wobject/Survey/SurveyJSON.pm +++ b/lib/WebGUI/Asset/Wobject/Survey/SurveyJSON.pm @@ -805,6 +805,13 @@ sub copy { # Update $address with the index of the newly created question $address->[1] = $self->lastQuestionIndex($address); } + elsif ( $count == 3 ) { + # Clone the indexed answer onto the end of the list of answers.. + push @{ $self->answers($address) }, clone $self->answer($address); + + # Update $address with the index of the newly created answer + $address->[2]++; + } # Return the (modified) $address return $address; }