Index: openacs-4/contrib/packages/survey/www/admin/predefined-question-ae-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/predefined-question-ae-2.tcl,v
diff -u -N -r1.2.2.1 -r1.2.2.2
--- openacs-4/contrib/packages/survey/www/admin/predefined-question-ae-2.tcl	13 Jan 2004 19:43:04 -0000	1.2.2.1
+++ openacs-4/contrib/packages/survey/www/admin/predefined-question-ae-2.tcl	13 Jan 2004 20:30:50 -0000	1.2.2.2
@@ -101,7 +101,7 @@
 ad_form -extend -name predef -form {
 #    {presentation_alignment:text(radio) {options {{"Beside the question" beside} {"Below the question" below}}} {value below} {label "Presentation Alignment"}}
     {presentation_alignment:text(hidden) {value beside}}
-    {action_type:text(radio) {label "Action on submit"} {options {{"Update DB" db} {"Execute TCL-Code" tcl} {"Nothing" "null"}}} {value "null"}}
+    {action_type:text(radio) {label "Action on submit"} {options {{"Update DB" db} {"Execute TCL-Code" tcl} {"Nothing" "null"}}}}
     {tcl:text(textarea),optional {label "TCL-Code"}}
     {table_name:text(text),optional {label "Table"}}
     {column_name:text(text),optional {label "Column"}}
@@ -117,6 +117,8 @@
     {column_name {$action_type=="db" || [empty_string_p $column_name]} "Please select \"Update DB\" if you want to insert values into the Database"}
     {key_name {$action_type=="db" || [empty_string_p $key_name]} "Please select \"Update DB\" if you want to insert values into the Database"}
     {key_name {![empty_string_p $key_name] || $action_type!="db"} "Please enter a key name"}
+} -new_request {
+    set action_type "null"
 } -on_submit {
     if {$action_type=="null"} {
 	set action_type [db_null]