ec_user_class_select_widget db { default " " } { multiple "t" }What it does:
Returns a HTML multiple select list for user_class_id with an option for each user class. Each id in the list default is selected.Defined in: /web/philip/tcl/ecommerce-widgets.tcl
Source code:
    set to_return "<select [ec_decode $multiple "t" "multiple" ""] name=user_class_id>
    <option value=\"\">none selected
    "
    set selection [ns_db select $db "select user_class_id, user_class_name from ec_user_classes order by user_class_id"]
    while { [ns_db getrow $db $selection] } {
	set_variables_after_query
	append to_return "<option value=\"$user_class_id\""
	if { [lsearch -exact $default $user_class_id] != -1 } {
	    append to_return " selected"
	}
	append to_return ">$user_class_name\n"
    }
    append to_return "</select>\n"
    return $to_return