ec_creditcard_expire_1_widget { default " " }What it does:
Gives the HTML for the Expiration Date Month select list.Defined in: /web/philip/tcl/ecommerce-widgets.tcl
Source code:
set header "<select name=creditcard_expire_1>\n" set footer "</select>\n" set defaulted_flag 0 foreach size [list "01" "02" "03" "04" "05" "06" "07" "08" "09" "10" "11" "12"] { if { $size == $default } { append options "<option VALUE=$size SELECTED>$size\n" set defaulted_flag 1 } else { append options "<option VALUE=$size>$size\n" } } if $defaulted_flag { return "$header$options$footer" } else { return "${header}<option value=\"\" SELECTED>select\n$options$footer" }