ec_creditcard_expire_1_widget

one of the documented procedures in this installation of the ACS
Usage:
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"
    }


philg@mit.edu