export_form_value

export_form_value   var_name   { default "" }

Returns a properly formatted value part of a form field.

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]\" "
    }