From 68d5986c39f8e7137c93b7407d11a23a19b4e728 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Sun, 11 Sep 2005 14:20:27 +0000
Subject: [PATCH] fix [ 1279887 ] unable to copy Survey Wobject

---
 docs/changelog/6.x.x.txt           | 1 +
 lib/WebGUI/Asset/Wobject/Survey.pm | 7 ++++---
 2 files changed, 5 insertions(+), 3 deletions(-)

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'),
 			);
 	}