brian2.tcl looks like this:
ad_page_contract {
} {
{field1 "2"}
}
ns_log Notice "In brian2 - field1=$field1"
if {$field1 == 2} {
set response "
<label for=\"field2\">Field2:</label>
<select name=\"field2\" id=\"field2\" multiple=\"multiple\" >
<option value=\"a\">Apple</option>
<option value=\"b\">Brian</option>
<option value=\"c\">Carrot</option>
</select>"
} elseif {$field1 == 3} {
set response "
<label for=\"field3\">Field3:</label>
<input name=field3 size=50 value=\"This is Field3\">"
} else {
set response "
<label for=\"field4\">Field4:</label>
<select name=\"field2\" id=\"field2\" >
<option value=\"d\">Dog</option>
<option value=\"e\">Easy</option>
<option value=\"f\">Fruit</option>
</select>"
}
ns_write $response
ad_script_abort
