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 "
} else {
append to_return "<input type=radio name=\"$field_name\" value=t>Yes "
}
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
}