ad_process_color_widgets

ad_process_color_widgets   args

Sets variables corresponding to the color widgets named in $args.

Source code:

    foreach field $args {
	upvar $field var
	set var [ns_queryget "$field.list"]
	if { $var == "custom" } {
	    set var "[ns_queryget "$field.c1"],[ns_queryget "$field.c2"],[ns_queryget "$field.c3"]"
	}
	if { ![regexp {^([0-9]+),([0-9]+),([0-9]+)$} $var "" r g b] || $r > 255 || $g > 255 || $b > 255 } {
	    set var ""
	}
    }