poll_display { -item_start "<br>" -item_end "" -style_start "" -style_end "" -no_choices "No Choices Specified" } choicesWhat it does:
Defined in: /web/philip/tcl/poll-defs.tcl
Source code:
arg_parser_for_poll_display $args set result "" set length [llength $choices] if { $length == 0 } { append result "$item_start $no_choices" } for { set i 0 } { $i < $length } { incr i 2 } { set label [lindex $choices $i] set choice_id [lindex $choices [expr $i + 1]] append result "$item_start <input type=radio name=choice_id value=$choice_id> $style_start $label $style_end $item_end\n" } return $result