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