diff --git a/lib/WebGUI/Asset/Wobject/Survey.pm b/lib/WebGUI/Asset/Wobject/Survey.pm index 3af31736b..555e764e0 100644 --- a/lib/WebGUI/Asset/Wobject/Survey.pm +++ b/lib/WebGUI/Asset/Wobject/Survey.pm @@ -165,6 +165,23 @@ sub importAssetCollateralData { $self->session->db->write("update Survey set surveyJSON = ? where assetId = ?",[$surveyJSON,$self->getId]); } +#------------------------------------------------------------------- + +=head2 duplicate ( ) + +Override duplicate so that surveyJSON gets duplicated too + +=cut + +sub duplicate { + my $self = shift; + my $options = shift; + my $newAsset = $self->SUPER::duplicate($options); + $self->loadSurveyJSON(); + $self->session->db->write("update Survey set surveyJSON = ? where assetId = ?",[$self->survey->freeze,$newAsset->getId]); + return $newAsset; +} + #------------------------------------------------------------------- =head2 getEditForm