From d57ec26d3763c882bf9cc56206ed4088deee73e0 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 29 Jun 2005 20:35:31 +0000
Subject: [PATCH] typo eq should be =

---
 lib/WebGUI/Asset/Wobject/Survey.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/Asset/Wobject/Survey.pm b/lib/WebGUI/Asset/Wobject/Survey.pm
index 8f023c745..f92bab3f5 100644
--- a/lib/WebGUI/Asset/Wobject/Survey.pm
+++ b/lib/WebGUI/Asset/Wobject/Survey.pm
@@ -903,7 +903,7 @@ sub www_editQuestionSave {
                 $_[0]->addAnswer(43,$session{form}{qid});
                 $_[0]->addAnswer(39,$session{form}{qid});
 	} elsif ($session{form}{proceed} eq "addQuestion") {
-		$session{form}{qid} eq "new";
+		$session{form}{qid} = "new";
                 return $_[0]->www_editQuestion();
 	}
         return "";