ad_user_group_type_field_form_element

one of the documented procedures in this installation of the ACS
Usage:
ad_user_group_type_field_form_element   field_name   column_type   { default_value "" }
What it does:
Creates a HTML form fragment of a type appropriate for the type of data expected (e.g. radio buttons if the type is boolean). The column_type can be any of the following: integer, number, date, text (up to 4000 characters), text_short (up to 200 characters), boolean, and special (no form element will be provided).
Defined in: /web/philip/packages/acs-core/user-groups-procs.tcl

Source code:


    if { $column_type == "integer" || $column_type == "number"} {
	return "<input type=text name=\"$field_name\" value=\"[philg_quote_double_quotes $default_value]\" size=5>"
    } elseif { $column_type == "date" } {
	return [ad_dateentrywidget $field_name $default_value]
    } elseif { $column_type == "text_short" } {
	return "<input type=text name=\"$field_name\" value=\"[philg_quote_double_quotes $default_value]\" size=30 maxlength=200>"
    } elseif { $column_type == "text" } {
	return "<textarea wrap name=\"$field_name\" rows=8 cols=50>$default_value</textarea>"
    } elseif { $column_type == "special" } {
	return "Special field."
    } else {
	# it's boolean
	set to_return ""
	if { [string tolower $default_value] == "t" || [string tolower $default_value] == "y" || [string tolower $default_value] == "yes"} {
	    append to_return "<input type=radio name=\"$field_name\" value=t checked>Yes &nbsp;"
	} else {
	    append to_return "<input type=radio name=\"$field_name\" value=t>Yes &nbsp;"
	}
	if { [string tolower $default_value] == "f" || [string tolower $default_value] == "n" || [string tolower $default_value] == "no"} {
	    append to_return "<input type=radio name=\"$field_name\" value=f checked>No"
	} else {
	    append to_return "<input type=radio name=\"$field_name\" value=f>No"
	}
	return $to_return
    }


philg@mit.edu