Index: openacs-4/contrib/packages/survey/www/admin/question-modify.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/question-modify.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/contrib/packages/survey/www/admin/question-modify.tcl	13 May 2005 02:20:13 -0000	1.7
+++ openacs-4/contrib/packages/survey/www/admin/question-modify.tcl	14 Nov 2005 04:34:54 -0000	1.8
@@ -43,14 +43,12 @@
 	{warning:text(inform) {label "[_ survey.Warning]"} {value "<span style=\"color: #f00;\">[_ survey.lt_There_isare_n_respons]"}}
     }
 }
-
 ad_form -extend -name modify_question -export {sort_order} -form {
     {question_number:text(inform) {label "[_ survey.Modify_Question__]"}}
     {survey_name:text(inform) {label "[_ survey.From_1]"} {value $survey_name}}
+    {pretty_id:text {label "Variable name"}
+    {help_text "This will be the name of the variable when creating reports. No spaces or special characers."}}
     {question_text:text(textarea) {label "[_ survey.Question]"} {html {rows 5 cols 70}}}
-    {pretty_id:text(hidden)
-	(value $question_id)
-    }
 }
 
 if {$allow_question_deactivation == 1} {
@@ -100,7 +98,7 @@
     ad_form -extend -name modify_question -form {
         {valid_responses:text(textarea)
             {label "[_ survey.lt_For_Multiple_Choicebr]"}
-            {html {rows 10 cols 50}}
+            {html {rows 15 cols 80}}
             {value $valid_responses}}
     }
 }
@@ -189,6 +187,6 @@
 
 
 
-set context [list [list "one?survey_id=$survey_id" $survey_info(name)] [_ survey.Modify_Question]]
+set context [list [list [export_vars -base "one" {survey_id}] $survey_info(name)] [_ survey.Modify_Question]]
 
 ad_return_template