export_form_value

one of the documented procedures in this installation of the ACS
Usage:
export_form_value   var_name   { default "" }
What it does:
Returns a properly formatted value part of a form field.
Defined in: /web/philip/tcl/utils-extra.tcl

Source code:



    # Returns the value part of a form field ( value=\"foo\" ) for text fields. 
    # if the variable var_name exists in the callers environment, the value
    # of var_name is used as the value.  Otherwise, the value of default is used. 
    # Quotes are converted to "

    if [eval uplevel {info exists $var_name}] {
	upvar $var_name value
	return " value=\"[philg_quote_double_quotes $value]\" "
    } else {
	return " value=\"[philg_quote_double_quotes $default]\" "
    }


philg@mit.edu