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