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 -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]