bool_table_prompt

one of the documented procedures in this installation of the ACS

Usage:

bool_table_prompt { -span {} } prompt name value

What it does:

generate a boolean prompt

Defined in: /web/philip/tcl/ticket-defs.tcl

Source code:

arg_parser_for_bool_table_prompt $args

    if {![empty_string_p $span]} { 
        set html "<tr><td colspan=$span><strong>$prompt</strong>&nbsp;"
    } else { 
        set html "<tr><th align=left>$prompt</th><td>"
    }

    if {$value == "t"} {
        append html "<input type=radio name=$name value=t CHECKED> Yes<input type=radio name=$name value=f> No"
    } else {  
        append html "<input type=radio name=$name value=t> Yes<input type=radio name=$name value=f CHECKED> No"
    }
    append html "</td>\n</tr>\n\n"

    return $html

philg@mit.edu