poll_display

poll_display { -item_start "<br>" -item_end "" -style_start "" -style_end "" -no_choices "No Choices Specified" } choices

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