ec_timeentrywidget

one of the documented procedures in this installation of the ACS
Usage:
ec_timeentrywidget   column   { timestamp "0" }
What it does:
Gives a HTML form input for a time. If timestamp is not supplied, time defaults to current time. For a blank time, set timestamp to the empty string.
Defined in: /web/philip/tcl/ecommerce-widgets.tcl

Source code:


    
    if { $timestamp == 0 } {
	# no default, so use current time
	set timestamp [ns_localsqltimestamp]
    }

    set output "<INPUT NAME=ColValue.[ns_urlencode $column].time TYPE=text SIZE=9>&nbsp;\n<SELECT NAME=ColValue.[ns_urlencode $column].ampm>
<OPTION> AM
<OPTION> PM
</SELECT>"

if { [empty_string_p $timestamp] } {
    return $output
} else {
    return [ns_dbformvalueput $output $column time [lindex [split $timestamp " "] 1]]
}



philg@mit.edu