diff --git a/docs/changelog/6.x.x.txt b/docs/changelog/6.x.x.txt index f195e53f0..0449e1bf6 100644 --- a/docs/changelog/6.x.x.txt +++ b/docs/changelog/6.x.x.txt @@ -28,6 +28,7 @@ - fix [ 1274488 ] Visitors language not recognized 6.7.2 - fix [ 1266159 ] 6.7.1 - getEditForm fields are in funky order - fix [ 1283629 ] Forum bug in 6.5.6 + - fix [ 1279887 ] unable to copy Survey Wobject 6.7.3 diff --git a/lib/WebGUI/Asset/Wobject/Survey.pm b/lib/WebGUI/Asset/Wobject/Survey.pm index d19527560..d0ef26d7f 100644 --- a/lib/WebGUI/Asset/Wobject/Survey.pm +++ b/lib/WebGUI/Asset/Wobject/Survey.pm @@ -135,7 +135,7 @@ sub duplicate { $newAsset = $self->SUPER::duplicate(shift); $newSurveyId = WebGUI::Id::generate(); - $newAsset->set({ + $newAsset->update({ Survey_id=>$newSurveyId }); $a = WebGUI::SQL->read("select * from Survey_question where Survey_id=".quote($self->get("Survey_id")) @@ -165,6 +165,7 @@ sub duplicate { $b->finish; } $a->finish; + return $newAsset; } #------------------------------------------------------------------- @@ -291,10 +292,10 @@ sub getEditForm { if ($self->get("assetId") eq "new") { $tabform->getTab('properties')->whatNext( -options=>{ - addQuestion=>WebGUI::International::get(28,'Asset_Survey'), + editQuestion=>WebGUI::International::get(28,'Asset_Survey'), backToPage=>WebGUI::International::get(745,'Asset_Survey') }, - -value=>"addQuestion", + -value=>"editQuestion", -hoverHelp => WebGUI::International::get('what next','Asset_Survey'), ); }